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-Sep- EXCHNG.SRCJEXCCMD.B32; 1 
8 MODULE onchtcad ZTITLE ‘Command parsing utility routines’ 
IDENT = ‘V04-000' 
SDORESSING RODE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
= 


BEGIN 


RARER ERA EAAAEAAER AAA EAAAA AAA EEE RARER AAA E EERE AARAAEREAEEAAE RAE 


'® 

's COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
* 
® 
® 
* 
*® 
® 
* 
is TRANSFERRED. . 
® 
® 
ae 
® 
® 
* 
7 
® 
* 
® 


> 4 4) 9 4 9 2 CooOoo 


Wrororororornororororn ooooo 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: eORPORAT iti NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


OOONAOUN EWN 0 ODNOUE WN 0 OONOULS wr 


NOUS WN 9 ODNOAUE WN HO ODNOAUE WN SO ODNAUES WN $ O OONOUES WN OOONOUS Win 


1 

1 

1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
‘ 1 
1 1 
1 1 
1 1 
2 1 
§ 1 

1 
5 0094 1 | 

it 

2 0 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ 8 : is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
2 0 1 !s 
5 83 1 VR R RRR AAAAEAA AAA 

1 

0031 1 !++ 

3 Ones : } FACILITY: EXCHANGE - Foreign volume interchange facility 
3 Ooge \ ABSTRACT: Command processing utility routines 
; Opes ! } ENVIRONMENT: VAX/VMS User mode 
; sis \ : AUTHOR: CW Hobbs CREATION DATE: 16-July-1982 
4 0040 1 ! MODIFIED BY: 
4 0041 1! 
4 0042 1! vO3-002 CWH3002 CW Hobbs 4-Mar-1984 ; 
4 0435 1! Add oben! PARSE _NULL_FILE routine, and call it after SPARSE in 
4 oes 1! EXCHSCMD_PARSE_FILESPEC"to make sure that RMS releases all file 
4 45 1! context. Also, change EXCHSCMD_RELATED_FILE_PARSE to us NAM$V_SYNCHK 
4 0046 1! syntax check only option so that null file parse will not be néeded. 
4 0047 1! During several operations EXCHANGE was leaving extra channels around 
& 0048 1! because channels were betng saved by the SPARSE calls. Fix to give 
: ied : BADPAD error when bogus radix specifier is given. 
5 051 1! 
5 03¢ 1 !ee- 
5 be 1 
2 bee ' Include files: 
5 0028 1 MACRO $module_name_ string = ‘exch$cmd" 2%; ! The require file needs to know our module name 
5 0057 1 REQUIRE 'SRCSTEXCREQ' 


11 
ExEMenO et ee HERepcHBRE QURU:ER — WMeMc PUA Sc RE hb a4 tenet v 
; 58 0058 1 ; 


11 

EXCHSCMD Command parsing utility routines 1b-Se 1984 00:37: AX-11 Bliss-32 V4.0-742 Page 3 

y0s~000 Module table of contents 1228007138 93:39:09 EXCHNG.SRCJEXCCMD.B32;1 . (2) 

; 60 5 XSBTTL "Module table of contents’ 

; ? ; ; : ; Module table of contents: | 

> 64 1 : 1 FORWARD ROUTINE 

; 68 160 1 exch$cmd_cli_get_integer ! Get integer value from CLI 

$s & 161 1 cmd_convert_uic : NOVALUE, ' Convert UIC format directory to binary pieces 

; of p86 1 exch$cmd_fetch_rec_format ' Get /RECORD_FORMAT qualifier 

; 0165 1 exch$cmd_fetch-rectmt_ implied : NOVALUE, ! Assume record format from file type 

; Ww 0164 1 exch$cmd_fetch_vol_ format ! Get /VOLUME_FORMAT qualifier external entry 

i. 7 0165 1 cmd_fetch-vol fmt_explicit, i Get /VOLUME-FORMAT qualifier when explicit 

 -Re 0166 1 cmd_fetch_volfmt_implied, ! Assume volume format from device characteristics 

; i 0167 1 exch$cmd_namb_clone, ! Make a duplicate of a filled in nam 

2. 0168 #1 cmd_namb_fab_copy : NOVALUE, ' Copy from RMS control block to NAMB block 

Pe 0169 1 exch$cmd_match_filename, ' Compare actual and target filenames 

gs, 0170 #1 exch$cmd_parse_filespec, ! Fill out a name block for a file parameter 

; 0171 1 exch$cmd_parse_null_file : NOVALUE, ! Parse the null string to release RMS channel 

WR id big 1 exch$cmd_related_file_fixup : NOVALUE, ! Fixup the name block for an RT-11 magtape file name 

:. 0175 «#1 exch$cmd_related_file_parse, ! Fill out a name block for a file parameter 

; 64 Bire } exch$cmd_unwind_cli_syntax ! Look for MSG$_SYNTAX signal 

; 8 0176 1 

; 0177 1. ! EXCHANGE facility routines 

; § 0178 1! 

;  =84 0179 1 EXTERNAL ROUTINE 

; 0180 1 exch$main_exit, ! Exit routine for end-of-file 

; @# 0181 1 exch$util_file_error, ! Signal RMS error 

; oy B86 1 exch$util_find_mounted_volb, ! Checked for mounted volume. 

; 88 0183 1 exch$util_namb_allocate, ' Allocate a name block 

; Ww 0184 1 exch$util_namb_release : NOVALUE, ! Release a name block 

; +4 Big? : exch$util-“up_case : NOVALUE jsb_rir2r3 ! Convert string to uppercase 

; FF 0187 1 

a = 0188 1 ! Equated symbols: 

; 94 0189 1! 

: 0190 1 !LITERAL 

: Se 0191 1! ; 

; 0136 1 

; | «98 0195 1 ! Bound declarations: 

; 0194 1! 

; 100 0195 1 BIND 

: 101 0196 1 ascid_recfmt_pad = ZASCID ‘RECORD_FORMAT.PAD' 

; 102 0197 1 | 
| 
| 
| 
| 
| 
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v04-000 enchbcnd cll .oet, integer 14-Sep-19 4 93:39:09 EXCHNG.SRCJEXCCMD.B32; cate (3) 
° staan ROUTINE exch$cmd_cli_get_integer (qual_desc : $ref_bblock, ret_value, negflg) = %SBTTL texch$cmd_cli_| 

lee 


FUNCTIONAL DESCRIPTION: 


This routine fetches an integer value for the qualifier described by the input parameter. The value 
converted to an integer and returned as the second parameter. 


INPUTS: 


qual_desc = the address of a gh descriptor for the qualifier name 
negflg - (optional) negative values OK if true, negatives not ok if false or missing 


IMPLICIT INPUTS: 
none 
OUTPUTS: 


ret_value = the address of a longword to receive the converted value. Value is zero if not presen 
if an error occurs 


—— 
OOOCooowwno 


UEwrn— 


IMPLICIT OUTPUTS: 

none 
ROUTINE VALUE: 

true if able to convert and return value, -1 if not present, error code if error in conversion or va 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i] 
i 
i 
: errors will be signalled 


LOCAL 

value, 

status, 

tmp_desc : $desc_block ! String to get the ascii text 


oO 


BUILTIN 

ACTUALCOUNT ; ! Count of input parameters 
: Start by setting our return value to zero 

-ret_value = 0; 

Return -1 if the qualifier is not present 

IF NOT cli$present (.qual_desc) 

RETURN -1; 

! Get the ascii string for the value 


DAA DAN ANAND ES BES ES EE BSE AAA AA AAAI 3 3 3 3 5 BOO 


oO n+ 4 
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Command parsin 
exchsend cli ; 
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0 
get CMD .B3 


Sdyn_str_desc_init (tmp_desc); ' Set 


) : the desc to the null dynamic strin 
on (Status = cli$get_value (.qual_desc, tap.desc)) : : 


Sexch_signal_return (Swarning_stat (status)); ! Tell about the error 
Convert the text string to a 32-bit integer 
Hen (status = ots$cvt_ti_l (tmp_desc, value)) 
Sexch_signal_return (exch$_badvalue, 1, tmp_desc, .status); 
} We can't have negative values unless negflg is present and true 
If .value LSS 0 
THE 
BEGIN 
emails LEQ 2 
Sexch_signal_return (exch$_badvalue, 1, tmp_desc); 
i --! -negfilg 
Sexch_signal_return (exch$_badvalue, 1, tmp_desc); 


! Negflg wasn't specified 
! Negflg is false 
END; 


If NOT (status = 
THEN 
Sexch_signal_stop (.status); 


str$freel_dx (tmp_desc)) ! Release the dynamic string, should never fail 


-ret_value = .value; Pass the value back to the calling routine. 


$ RETURN true; 
1 END; 
-TITLE EXCHSCMD Command parsing utility routines 
-IDENT \V04-000\ 
EXCHSCMD_PLIT ,NOWRT,2 
\RECORD_F ORMAT .PAD\<0><0><0> 
«LONG 17694737 
ADDRESS P.AAB 
ASCID_RECFMT PAD=  P.AAA 
-EXTRN EXCHSMAIN_E 
-EXTRN EXCHSUTIL_F 


-PSECT 
ASCII 


- EXCHSUTIL_FILE_ERROR 
TED VOCB 


DYN_STR_TEMPLATE 
TIT L 


-EXTRN P 


are ahs 
XecHD 8304 age 58 
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v04 exch$emdcLi ys Ae integer 14- ~Sep- 1984 93: 35; 34 EXCHNG. SRC E 


~PSECT EXCHSCMD_CODE ,NOWRT,2 


901C 000 ENTRY EXCHSCHD CLI_GET_INTEGER, Save R2,R3,R4 : 0198 ; 

54 000000006 00 95 MOV LIBS $$ IGNAL, RG : : 

E . ¢ SUBL2 ss # ; : 

08 BC D4 C CLAL arc t VaLue : 46 : 

04 AC DD F PUSHL a + 025 ; 

000000006 00 Q1 EB if CALLS " 5 omer : ; 
04 0 € 1 BLBS ; : 

0 01 if a MNEGL ay: + 0252 ; 

04 AE 000000006 EF 7D 9 1$: MOVO  =TMPL, DESC + 0256 F 

4 AE 9F 000 PUSHAB TMP_DESC ; 0257 : 

4 AC DD 00 B PUSHL Q AC_ DESC ; : 

000000006 99 F § CALLS - CLISGET _VALUE 3 ‘ 
D 90 MOVL 4 STATUS : : 

98 BA O00 Bt ra2 Sang gs : 0259 ; 

52 gf DO 0003E MOVL STATUS2, TEMP : : 

52 DD 904] PUSHL T : : 

64 01 FB 0004 CALLS #1, LIBSSIGNAL : : 

45° 11 0046 BRB 5$ : : 

SE DD 0004 2$ PUSHL > 0263 ; 

08 AE 9F OO04A PUSHAB DESC : : 

000000006 90 02 F 90040 CALLS 5 “orsscyt. TILL : : 
3 50 DO 00054 VL Tus ” : : 

15 53 £8 00057 BLBS by F : 

52 00F81110 Hi DO 0005A OVL Hee st TEMP : 0265 : 

3 OD 00061 PUSHL STA : : 

08 AE 9F 00063 PUSHAB tap DESC : : 

o1 dD 0066 PUSHL #1 : : 

2 DD 000 PUSHL TEMP ; : 

64 04 FB 0006A CALLS #4, LIBSSIGNAL : : 

1E 11 0006D BRB : : 

6E D5 O006F 3S: TSTL VALUE + 0269 ; 

1€ 18 00071 BGEQ : : 

02 6C 91 00073 CMPB ss CAP), #2 : 0273 ; 

04 1B 0007 BLEQU 4s : : 

15 of AC €8 0007 LBS ess + 0277 ; 

52 00F81110 BF p orc 4$ OVL rise $96, TEMP : 0279 3 

04 AE 9F 000 PUSHAB TMP F F 

1 DD 000 SHL : : 

DD PUSHL TEMP : : 

64 FB CALLS ‘ , LIBSSIGNAL : ; 

50 5$: MOVL EMP, RO : F 

4 90 RET 3 : 

04 AE 9F 00091 6$ PUSHAB TMP_DESC : 0283 ; 

000000006 99 gi F 94 CALLS #1, ~STRSFREE1_Dx ; : 
5 p 98 ROVE RO, SI STAT Tus : : 

2 DD Hi PUSHL STA : 0285 : 

000000006 00 01 FB as CALLS ni, | oe ; : 
08 BC 6 09 AB 7S MOVL § VALUE, @RET_VALUE : 0287 : 

p AF MOVL #1, RO : 0289 ; 

4 00082 RET : 0290 : 


vou-000 exchtcndeelt get integer iets ep-9be 19:30:01  LENciugs See SexC chD-B30;1 Page isi 


; Routine Size: 179 bytes, Routine Base: EXCHSCMD_CODE + 0000 
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41 mlen, 
; mbuf : REF VECTOR C ,BYTE), 
value, 
ve tmp_desc : $desc_block ! String to get the ascii text 
4 ° 
4 BIND 
vy nam = .fabb Cfab$l_nam] : Sbblock ! Address of the name block 


S$debug_print_lit (‘entry'); 


FSSEEES EG 


WU & & 
Fwn-0O0@ 
COQooooooeoo 


Copy the directory string length and address into locals 
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Oe 000 cad, convert_uie (fab. nanb) 13-88-1382 99:35:39 YEXCHNG SRC TEXCCMD B32; - (4) 
; 138 4! 1 Soon ROUTINE cmd_convert_uic (fabb : Sref_bblock, namb : $ref_bblock) : NOVALUE = ZSBTTL ‘cmd_convert_ 
; 89 38 lee 
3 1 94 ! 
; oe 3? FUNCTIONAL DESCRIPTION: 
; Be : — routine converts the ASCII uic format directory to binary values, which are then stored in the 
; 06 9 namo. 
3 4 ’ INPUTS: 
: 209 i fabb - the address of an RMS FAB, assumed to have a nam block 
: ‘9 } namb - address of the created name block 
; ig 0305 2! IMPLICIT INPUTS: 
; 1 BS ! 
3 14 0 ! none 
3 15 08 ! 
3 16 0309 ' OUTPUTS: 
3 1 9310 ! 
3 18 0311 ! none 
3 13 0 \¢ ! 
3 0 031 ! IMPLICIT OUTPUTS: 
3 1 0314 ! 
3 § 0315 ! none 
3 B38 ! 
: : Baie ROUTINE VALUE: 
3 $8 $384 ; True if success, warning status code if unable to parse the parameter 
; 8 0 1 2 | SIDE EFFECTS: 
; 9 § SNAMB block is filled with file name information 
: 03 Xi 
; : 8 § Sdbgtrc_prefix ('cmd_convert_uic> '); 
; 3¢ 83 8 LOCAL 
: 236 b3 comma, 
3 7 350 len, 
; 0 buf : REF VECTOR C ,BYTE), 
; 239 0 glen, 
: 40 : gbuf : REF VECTOR C ,BYTE), 
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cmd_convert_uic 
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abb, namb) 


len = .nam prensb.dir ; 
buf = .nam Lnam$l_dirJ; 


-Sep-19 EXCHNG.SRCJEXCCMD.B32; 


We assume that the directory is of the format <grp,mem> or Corp,mem], test these assumptions 
$logic_check (2, (.len G ay 5), 275); 
$logic_check (2, ((.buf [0 EQ C *<*) OR (.buf CO] EQL 2C 'C£')), 276); 

Slogic-check (2, ((.buf C.len-1) EQL XC '>") OR (.buf C.len-1) EQL %C *5*')), 277); 


H Find the comma 
C F . 2 ed 
Sfogic cheek (or ¢.comma NEO OS, 5785; 


check ( comma NEQ 
‘ Derive the address and length of the group and member strings 
gbuf = .buf + 1; ! Skip pest the open bracket 
glen = .comma - .gbuf; ' Length of group is easy 
mbuf = .comma + 1; ! Member starts one past the comma 
mlen = (.len + .buf - 1) = .mbuf; ! Member length is a Little harder. 


RMS doesn't set the directory bits if the device is non-directory, so we must do it too. 


iF ((.mlen EQL 1) AND (.mbuf £0} EQL ZC ‘**')) THEN namb Cnamb$v_wild_member] = true; 
IF ((.glen EQL 1) AND (.gbuf [0] EQL ZC ***)) THEN namb E[namb$v_wild_group] = true; 
i] 
] 


! Convert the text strings to a 32-bit integers, then store as bytes 
if NOT .namb Cnamb$v_wild_member] 
THEN 


BEGIN 
LOCAL 


status; 
$stat_str_desc_init (tmp_desc, .mlen, .mbuf); 
I (s€atus = ots$cvt_to_l (tmp_desc, value)) 


Sexch_signal_stop (.status); 
namb tneaBSb-uic "nen er) = .value; 


IF NOT .namb Cnamb$v_wild_group] 
THEN 


BEGIN 
LOCAL 


status; 
S$stat_str_desc_init (tmp_desc, .glen, .gbuf); 
I (status = ots$cvt_to_l (tmp_desc, value)) 


THEN 
—_ signal_stop (.status); 
pend namb$b_uic_group) = .value; 


$debug_print_fao (‘Input “‘!AF*’: group “tAF’’. member ““!AF'", -len, buf, .glen, .gbuf, .mlen, .mbuf); 
$debug_print_fao (‘octal grp !0B mem !0B, wild. rp 'UL wild_mem ‘uL', 

-namb [namb$b_uic_groupJ, .namb nambsb_uic member], 
-namb namb$v_wild_groupi, -namb Cnamb$V_wild_member]); 


RETURN; 
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4 AX-11 Bliss-32 V4.0-74 Page 10 
BBs 99:30:39 FART Oki sge 32 ue Os cee 9 a) 
.EXTRN EXCHS$_BADLOGIC, OTSSCVT_TO_L 
ENTRY CMD. CONVERT_UIC, Save R2,R3,R4,R5,R6,R7,R8,-; 0291 
MOVAB OTSS$CVT_TO_L : 
MOVL #eXCHS $ gAOcbérC, RB : 
MOV LIgssTO : 
SUBL2 #12, SP : 
MOVL FABB, R + 0341 
MOVL 4 (RO), RO : 
MOVZBL 3 (RO), LEN + 0348 
MOVL (RO). BUF : 0349 
CMPL LEN, #5 : 0353 
BGEGU 1$ : 
MOVZWL 4275, -(SP) : 
PUSHL : 
PUSHL i 3 
CALLS 4 b1esstor : 
CMPB #60 + 0354 
BEQL 33 ; 
CMPB = (BUF), #91 : 
BEQL 2 3 
MOVZWL #276, -(SP) ; 
PUSHL #1 ; 
PUSHL an : 
CALLS @# : 
CMPB TASTED #62 + 0355 
BEQL 3$ 3 
CMPB ss = 1 (LEN) (BUF), #93 : 
BEQL 3$ 3 
MOVZWL #277, -(SP) ; 
PUSHL ; 
PUSHL ns 3 
CALLS #3, LIBSSTO : 
LOCC aid, LEN, CBUF : 0359 
BNEQ 3 
CLRL : 
MOVL Rt. COMMA ; 
BNEG : 0360 
MOVZWL #278, -(SP) : 
PUSHL @# : 
PUSHL Rs ; 
CALLS #3, LIB$STOP ; 
HOVAB 1(R2), GBUF ; 
SUBL UF, COMMA, GLEN > 0365 
MOV (R5S, MBUF > 0366 
ADDL3 BUF, LEN, RO > 0367 
ser Bu -” : 
CMPL LEN, #1 > 0371 
BNEG : 
CMPB : 


(MBUF), #42 
6$ 


<m 
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V04- cad_convert_ute (fabb. namb) 132808- 1388 93:35:09 YEXCHNG.SRe EXCCMD 03244 ’ V 
5 08 A A MOVL. NAMB, R : ’ 
6c A 6 3 BISB2 #32, 106 R2) : ; 
0 AD 68: CMPL EN, # : ; 
B BNEQ : : 
2A B CMPB {GBUF), #42 : ; 
1 B BNEQ : ; 
5 08 At p B MOVL. NAMB, R : ; 
6c (A 1 BB BISB2 #16, 108(R2) : ; 
5 08 At D BF 7$: MOVL ON R : ; 
1€ 6¢ A E cs BBS #5, 108(R2), 8$ : ; 
6 AE 010E 8F B ¢ MOVW #270, DESC+2 : : 
04 AE 9 8 ¢ MOVW  MLEN, DESC ; ; 
8 AE D D OVL UF, DESC+4 ; ; 
E DD 000D PUSHL SP : ; 
08 AE OF 9D PUSHAB TMP_DESC : F 
69 Q FB DB CALLS #2, OTSSCVT_TO_L : F 
23 : OODE BLBC STATUS, 9$ ; ; 
0083 C2 bE 9 O0E1 MOVB =~ VALUE, _131(R2) : : 
24 6c OA 4 £0 000E6 8$ BBS #4, 168(R2), 11$ : ; 
06 AE 010€ ef BO 000EB MOVW #270, DESC+2 : ; 
04 AE $ 80 000F1 MOVW GLEN, DESC ; ; 
08 AE 53 pO 000F5 MOVL  GBUF, DESC+4 ; : 
SE DD 000F9 PUSHL : : 
08 AE 9F O00FB PUSHAB TMP_DESC : ; 
69 98 re OOFE CALLS #2, OTSSCVT_TO_L : ; 
06 E8 00101 BLBS STATUS, 10$ : ; 
50 DD 00104 98 PUSHL STATUS ; : 
67 01 FB 00106 CALLS #1, LIBS$STOP : ; 
04 00109 RET : : 
0084 C2 6E 90 0010A 10$:  MOVB VALUE, 132(R2) : : 
04 OO10F 11$: = RET : : 
4 out ine ze: ytes, outine sase: a + e 
Routine Si 272 byt Routine B EXCHSCMD_CODE + 0083 ; 


a 
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EXCHSCMD Command parsing utility routines 18-5 -1984 00:37: AX-11 Bliss-32 V4.0-74 P 
ive exch cad’ fetcherec.. ormat (namb) 1 =3007 1382 99230508 YEXCHNG.SRe EXCCMD.B32; res 3 


: 1 r § 1 SL oGAL ROUTINE exch$cmd_fetch_rec_format (namb : Sref_bblock) = ZSBTTL ‘exch$cmd_fetch_rec_format (namb)' 
; 16 4 : ($4 

s 31 4 ! 

; \8 219 } FUNCTIONAL DESCRIPTION: 

: 0 tig i This routine retrieves the /RECORD_FORMAT qualifier for the current file (i.e. the last CLISGET_VALU 
: 1 ol? for a filename establishes current). 

: § 415 2 | INPUTS: 

3 4 718 ! 

3 5 41 { none 

; $ r8 ' 

s i rh IMPLICIT INPUTS: 

3 , be 1 ! command language interpreter callbacks will retrieve command Line information 

; i 04 5 { QUTPUTS: 

3 i 8 é namb - record format status will be inserted into the namb 

: 335 04 i IMPLICIT OUTPUTS: 

; 336 0428 ! 

3 37 0429 ! none 

s 338 0430 ! 

: 346 bees ROUTINE VALUE: 

3 Ses ac38 § True if success, bad status code if any error (not present is success) 

; re 0435 i SIDE EFFECTS: 

3; 344 0436 ! 

3 5 et 14 ! none 

: 346 0438 ed 

3 ef 0439 

: 348 0440 $Sdbgtrc_prefix (‘cmd_fetch_rec_format> '); 

3; 349 0441 

3; 350 044 REGISTER 

3; 351 044 rec_format, 

3 26 444 status 

i 38 bece : 

: 336 044 ! We should get a MSG$_SYNTAX error if /RECORD_FORMAT is not allowed on the current parameter. Simulate ar 
: 28 ork : by unwinding if we see it. 

; 2% 450 2 ENABLE 

3 23 $3) exch$cmd_unwind_cli_syntax; 

: 361 438 Sblock_check (2, .namb, namb, 400); ! It would be nice to know now if the input is something els 
; 88 455 namb pranbt.rec..fornat? = filbSk rfmt_invalid; ! Assume that there is no /REC ‘ 

: : $38 namb Cnamb$b_car_control] = filb$k_cctl_cr; ! Also assume normal carriage-return carriage control 
; 238 : Nothing to do if the qualifier wasn't specified 

: 8 60 if cli$present (XASCID 'RECORD_FORMAT') 

; % 62 BEGIN 


<m 


M11 
EXCHSCMD Command parsing utility routines 16-Sep-1984 00:37: AX-11 Bliss-32 V4.0-74 Page 13 
v04- exch cad fetcherec., ornat (namb) 132300= 138s 99:30:09 EXCHNG SRETEXECMD.B30+4 ’ (5) 


; 1 4 ; 
: i ces namb Cnamb$v_rfmt_explicit] = foue: ! Remember that we were given a yolue explicitly : 
; ie, ret rec_format = filbSk_rfmt_invalid; ! Init to the impossible value (0) ; 
; Ne re ; Convert the keyword presence to the symbolic representation of the qualifier keyword for real record f : 
; f ag IF cliSpresent (ZASCID "RECORD_FORMAT.BINARY') ; 
; 3 ral rec_format = filbSk_rfmt_binary; j 
: 381 or aks nereoent (ZASCID ‘*RECORD_FORMAT.FIXED') : 
; a8 47s 4 BEGIN | ; 
; 385 ‘i ? rec_format = filbSk_rfmt_fixed; ! Save the format code : 
: ey ai ? Status will be -1 (suc) if not present, error if present but bad value : 
: 34 etd ? if NOT (status = exch$cmd_cli_get_integer (ZASCID "RECORD_FORMAT.FIXED', namb Cnamb$l_fixed_len])) : 
; $3 bees é RETURN .status; : 
; e7 Bees 2 If the record is not specified, default the record length to 512 : 
; 395 bes? ? if enamb Cnamb$l_fixed_len] EQL 0 : 
; 37 0489 4 namb Cnamb$l_fixed_len] = 512; : 
: ine B73) : If the record is too long, scream and shout : 
; 401 0493 4 iF nam Cnamb$l_fixed_len] GTRU filb$s_record_buffer : 
: 40 0495 4 Sexch_signal_return (exch$_notvallen, 1, .namb Cnamb$l_fixed_len]); ; 
; 404 496 F 
; 405 49 END; 3 
: 40 0299 
; $8 0360 ft _.g' tterecent (ZASCID "RECORD_FORMAT.STREAM') ; 
; 239 8 rec_format = filbSk_rfmt_stream; ! Set the primary format ; 
; ie 304 ! Get the pad character 3 
: 414 5 iF cli$present (ascid_recfmt_pad) : 
: Ne a 4 ag ; 
: 219 309 LOCAL ; 
: 418 510 4 tmp_desc : $desc_block; 3 
3 419 511 4 $dyn_stf_desc_init (tmp_desc); ; 3 
; ro 3\¢ ? IF wor (Status = cli$gef_value (ascid_recfmt_pad, tmp_desc)) : 
.¢ 2 514 4 RETURN .stzcus; | : 
: ? Z 312 ? af {nr atese Cdsc$w_length) EQL 1 : 
> 425 215 4 namb Cnamb$b_pad_char] = CHSRCHAR (.tmp_desc Cdsc$a_pointer)) ; 
; 4 § 218 4 ELSE : 
: 4 519 5 BEGIN 3 


+ 
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Vv04- exch cad fetcherec. ormat (namb) 1 30071382 93:30:09 EXCHNG  SRESEXCCMD 83061 . (5) Vv 
; 4 9 LOCAL ; 
3 6 char, H 
; 4 § value; , 
; 43) IF .tmp_desc Cdsc$w_length] LSS 3 PF 
; 4 § 4 THEN ; 
; 4 2 5 RETURN exch$ podeoed , 
; 4 § tmp_desc bdsc watength = .tmp_desc Cdsc$w_length] - 2; : 
; 435 5 char = CHSRCHAR A (tmp_desc [dSc$a_pointer]); : 
: 4 528 IF .char NEQ XC°R' : 
; 4 529 THE : 
; 438 0530 RETURN exch$_badpad; 3 
> 439 2 1 char = CHSRCHAR_A (tmp_desc Cdsc$a_pointer]); : 
: 440 § SELECTONE .char OF : 
; 441 5 SET : 
3; 44 0534 é RC'D'] : status = ots$cvt_ti_l (tmp_desc, value); : 
: 446 0535 zC'O') : status = ots$cvt_to_l (tmp_desc, value); 
3: 444 05 § 5 ac'x') : status = ots$cvt_tz_l (tmp_desc, value); 
3 ai 0338 5 OTHERWISE] : RETURN exch$_badpad; 
3; 44 0539 : IF NOT .status 
; 448 0540 5 THEN 4 
> 449 bees 5 g Lewy -Status; 
; 450 206 5 namb namb$b_pad_char] = .value; 
> 451 0545 4 ND; 
; 43¢ 0544 3 END; 4 
; 45 0545 ; 
; $28 B2e$ If we have seen a valid record format, then store the final info in the namb 
: 456 0548 : IF .rec_format NEQ filb$Sk_rfmt_invalid 5 
: 457 0549 ; THEN 
; 458 0550 namb Cnamb$b_rec_format] = .rec_format; ! store the final value 
3; 459 0551 3 
; 460 b23¢ END; 
> 461 055 
3 £86 beee H Get the transfer mode qualifier 
3 464 0556 IF cli$present (ZASCID ‘TRANSFER_MODE .AUTOMATIC') ! Usual case 
3; 465 0557 THEN - 
; 466 0558 namb Cnamb$b_transfer_mode] = filb$k_xfrm_automatic 
; ret be2p itr IF cli$presént (ZASCID 'TRANSFER_MODE .BLOCK') 
; 469 0861 namb Cnamb$b_transfer_ mode) = filb$k xfrm block | 
; rh 6206 FUSE IF cli$presént (ZASCID 'TRANSFER_MOBE .RECORD') | 
; $78 0564 namb Cnamb$b_transfer_mode] = filb$k_xfrm_record; 
: rte 8208 : Look for the carriage control, again we will unwind if it isn't allowed | 
: ore 568 4 (BEGIN LOCAL temp; | 
3 47 26° 4 temp = cli$present (ZASCID_‘CARRIAGE_CONTROL'); ; 
3; 478 570 4 namb Cnamb$v_cctl_explicit] = ((.temp EQL cli$ locpres) OR (.temp EQL cli$ bogneg)); | 
; 8 eft ? $debug_print_fao T'temp !XL, cctl_expl !UL*, .femp, .namb Cnamb$v_cctl_expTicit]); 
: $3) 378 ? : of cl iSpresent (ZASCID ‘CARRIAGE_CONTROL .CARRIAGE_RETURN') ! This is the default, as set at entry above 
: 683 376 4} namb Cnamb$b_car_control] = filb$k_cctl_cr; 
: 484 576 4 
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Command parsing utility routines 16- -1984 00:37 
exchScmd fetch rec. format <namb) 1 308-13 4 99:39 


-Sep-19 
a leans (ZASCID 'CARRIAGE_CONTROL.FORTRAN') 
namb Cnamb$b_car_control] = filb$k_cctl_fortran; 
IF cli$present (ZXASCID "CARRIAGE_CONTROL.NONE') 
(NOT .temp) 


THEN 
oa Cnamb$b_car_control] = filb$k_cctl_none; 


RETURN true; 
END; 


:50 -YAX=11_ BL iss-32 v4.0-74 
11 ae ¢ ; 


7 
EXCHNG.SRCJEXCCMD.B32; 


-PSECT EXCHSCMD_PLIT,NOWRT,2 
4F 46 SF 44 52 4F 43 45 36 sets P.AAD: .ASCII \RECORD_FORMAT\<0><0><0> 
Q10E000D O0C2C P.AAC: .LONG 17694733 
sat | Nae | ‘ it 0 «ADDRESS P.AA 
4F 46 SF 44 52 4F 43 45 5 0034 P.AAF: .ASCII \RECORD_FORMAT.BINARY\ 
59 52 41 4€ 49 00043 
010E0014 00048 P.AAE: .LONG 17694740 
00000000" 0004¢ «ADDRESS P.AAF 
4F 46 SF 44 52 4F 43 45 5 0050 P.AAH: .ASCII \RECORD_FORMAT.FIXED\<0> 
00 44 45 58 49 Q005F 
ah 0013 00064 P.AAG: .LONG 17694739 
00 abe . 4 -ADDRESS P.AAH 
4F 46 SF 44 52 4F 43 4 QO6C P.AAJ: .ASCII \RECORD_FORMAT.FIXED\<0> 
00 44 45 58 4 0078 
010€0013 00080 P.AAI: .LONG 17694739 
000000 $" 88 -ADDRESS P.AAJ 
4F 46 SF 44 52 4F 43 4 0 P.AAL: .ASCII \RECORD_FORMAT.STREAM\ 
4D 41 45 52 54 0009 
ahs 3498 OO9C P.AAK: .LONG 17694740 
0099 000° OO0A0 »ADDRESS P.AAL 
SF 2 45 46 53 4E 41 4 QOOQA4 P.AAN: .ASCII \TRANSFER_MODE.AUTOMATIC\<0> 
00 45 49 54 41 4D 4F 54 ; 0083 
4 001 QOOBC P.AAM: .LONG 17694743 
0000000° 000C0 »ADD P.AAN 
SF 52 45 46 53 4E 41 54 Q00C4 P.AAP: .ASCII \TRANSFER_MODE .BLOCK\<0> 
00 48 43 4F 4 tt 
oi8 001 D8 P.AAO: .LONG 17694759 
0 vee : itt oA ° 
SF 52 45 46 53 og at 4 EO P.AAR: .ASCII \TRANSFER_MODE.RECORD\ 
44 52 4F 435 45 OEF 
POF OOn OOF4 P.AAQ: .LONG 17694740 
0000 09" Obee -ADDRESS P.AA 
5F 45 47 41 49 52 52 41 ? ttt P.AAT: .ASCII \CARRIAGE_CONTROL\ 
918 63 10¢ P.AAS: .LONG 17694736 
0 00° 0011 -ADDRESS P.AA 
5F 45 47 41 49 52 52 41 4 114 P.AAV: .ASCII \CARRIAGE_CONTROL .FORTRAN\ 
4E 41 52 54 52 4F 46 se +s \s3 
010E001 O12C P.AAU: .LONG 17694744 
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EXCHSCMD Command parsing utility routi 16-Sep-1984 00:37:5 AX-11 Bliss-32 V4.0-74 E 
v04-000 exch$cnd fetche rec. format <namb) 1360-1984 99:35:08 EXCHNG SRESERCCMD 832; —_ it V 
s2m2orny 130 ADDRESS P.AAV : | 
6F 52 54 GE GF 43 iF 45 47 4] 49 52 52 4 134 P.AAX: ASCII \CARRIAGE_CONTROL.NONE\<0><0><0> : 
“on d€ 01 i$ 146 P.AAW: .LONG 17694741 : 
000" 0015 -ADDRESS P.AAX : 
.EXTRN EXCHSUTIL_BLOCK_CHECK 
eEXTRN EXCHS$_NOTVALLEN| 
SEXTRN EXCHS~ BADPADS OTS$CVT_T2_L 


-PSECT EXCHSCMD_CODE ,NOWRT,2 


OOFC 00000 sENTRY EXCHSCMD_FETCH_REC_FORMAT, Save R2,R3,R4,- 0406 


} Ps 

: 

| ; 

~EXTRN CLIS_COCPRES, CLIS_LOTNES : 

R5,R6,R : : 

57 0000" CF 9E 99002 MOVAB ASCID. RECENT _PAD, R7 : : 

56 000000006 00 H 0000 MOV CL SPRES R6 : ; 

5E oc C 9000E SUBL2 #1 : ; 

6D 01c7 CF DE 0011 MOVAL  26$, (FP) + 0407 ; 

54 04 AC 00 00016 MOVL 268 RG > 0453 : 

52 O10A00F7 =F pO OO1A MOVL 17452823, R2 ; ; 

3) (O90 E86 00056 Rove Reo hon 
000000006 EF 16 00029 JSB EXCHSUTIL_ BLOCK_CHECK : ; 

7B A4 94 0002F CLRB =—s-:« 123 (R4) + 0455 : 

7D A& 94 000 Q CLRB  =—s- 125 (R4) : 0456 ; 

18 A? 9F 000 PUSHAB P.AAC > 0460 3 

66 01 FB 00 8 CALLS #1, CLISPRESENT : ; 

03 50 0038 LBS RO 1$ : ; 

011C 31 0003E BRW 17$ : : 

0085 C4 g] 8 00041 1$: BISB2 #1, 133(R4) > 0464 3 
: D4 9046 CLRL + REC_FORMAT : 0465 ; 

34 A? 9F 0004 PUSHAB P.ARE + 0469 ; 

i See Seu tae fd GylsPnesen 7 ; 
52 01 00 00051 MOVL #1, REC_FORMAT + 0471 ; 

50 A? 9F 00054 28: PUSHAB P.AAG : 0473 : 

$6 8) ES 0008A ag A eetacmapese } 

$5 02 00 0005p MOVL t3 REC_FORMAT + 0477 : 
cM 3 88880 A ted fa! 

FDD2—sCF F 66 CALLS 2, EXCHSCMD_CLI_GET_INTEGER : ; 
53 DO 00068 OVL RO, STATUS : ; 

SA E9 000: : BLBC STATUS $3 : ; 

7E As D3 4 Ist Ve6cRas + 0487 : 

re AG 0200 F if 76 MOVZWL #512, 126(R4) > 0489 ; 
000002 8F E As pi 7C 3$: CPL 126(R4 >, #512 ; 0493 3 
55 000000006 8F D8 a MOVL EXCH H$_NOTVALLEN, TEMP > 0495 ; 

7E A& DD 0008D PUSHL  126(R4) : 3 

1 OO a PUSHL #1 3 3 

DD 0009 PUSHL TEMP : 3 

000000006 99 FB 94 CALLS #3, LIBSSIGNAL : ; 
0 9B MOVL TEMP, RO : 3 

Be 9€ RET : : 
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fbr 000 exchscad fetcherec.foraet <namb) 2 Sep 3B 99:30:04 : Blisse32 V 2 age 1 
F 


-Sep-1 EXCHNG.SRCJEXCCMD.B32; 1 (5) 
0088 C7 OF OO09F 4$: PUSHAB P.AAK : 0500 ; 
1 re A3 CALLS #i, GLISPRESENT : . ; 
E A BLBC RO, ; ° 
DO 000A MOVL #3, REC_FORMAT + 0502 : 
DD OOOAC 5S: PUSHL R + 0506 F 
$6 1 FB AF CALLS #1, ¢ ISPRESENT : : 
6 0 5 0B BLBC =. RO : ; 
04 AE 000000006 EF 7D 000B4 MOVG  TMPL, DESC + 0511 : 
04 AE 9F O00BC PUSHAB TMP_DESC : 0512 : 
57 DD O00BF PUSHL : ; 
000000006 9 FB 000C1 CALLS We, CLISGET_VALUE : : 
D (8 MOVL RO, STATU : ; 
E E CB 6$: BLBC STATUS, 14$ : : 
01 04 AF 81 cE CMPW TMP_DESC, #1 + 0515 ; 
0 ¥2 00D BNEQ : ; 
0082 C4 08 3 90 000D4 MOVB  aTMP_DESC+4, 130(R4) + 0517 ; 
11 OODA 7$: BRB : : 
03 04 AE B61 000DC 8S: CMPW TMP_DESC, #3 + 0523 ; 
SF 1F OOOEO BLSS : ’ 
04 AE 02 A2 b00E2 SUBW2 #2, TMP_DESC + 0526 ; 
50 08 BE 9A 000E6 MOVZBL aTMP_DESC+4, CHAR + 0527 : 
08 AE 06 OOOEA INCL  TMP_BESC+4 ; : 
25 50 D1 OO0ED CMPL CHAR, #37 : 0528 ; 
4F 12 OO00FO BNE ; ; 
50 08 BE 9A 000F2 MOVZBL @TMP_DESC+4, CHAR + 0531 3 
08 AE D6 000F6 INCL  TMP_BESC+4 : : 
00000044 8F 50 01 000F9 CMPL CHAR, #68 + 0534 ; 
0€ 12 00100 NEG 9$ : : 
5E 0D 90192 PUSHL ; F 
08 AE OF 0104 PUSHAB TMP_DESC : ; 
000000006 00 02 FB 001 7 CALLS #2, OTS$CVT_TI_L : : 
0000004F  8F gf D1 Sots 9$ CMPL CHAR, #79 + 0535 : 
ge 12 0011 BNEQ 10$ : 3 
E DD 00119 PUSHL : : 
08 AE 9F 0011B PUSHAB TMP_DESC : : 
000000006 00 08 FB OOt1E CALLS #2, OTS$SCVT_TO_L : : 
15 11 001 BRB : : 
00000058 BF 50 0100127 10$:  CMPL CHAR, #88 > 0536 : 
11 12 001 BNEQ 12$ : : 
SE DD 001 PUSHL : : 
08 AE 9F 001 : PUSHAB TMP_DESC : : 
000000006 99 Q FB 001 CALLS #2, OTSSCVT_TZ_L : : 
§ : it C 11$: HOVL R STATUS : 
50 000000006 gf Bd 141 12$: MOVL #EXCHS_BADPAD, RO > 0537 
4 53 cg tre 13$: BLBS STATUS, 15$ : 0539 
0 5 i Her 14$: MOVL STATUS, RO > 0541 
0082 C4 150 15$ MOVB VALUE, 130(R4) > 054 
55 e 1 5 16$ Ist REC_FORMAT : $808 
7B AG 33 159 MOVE REC_FORMAT, 123(R4) : 0550 
008 9F 0015p 178 PUSHAB  P.A > 0556 
bg 1 FB 161 CALLS #i, CLISPRESENT ; 
05 0 €9 00164 BLBC =E._s«aRO,.:*T1 ; 


pee 
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Command parsing utility routines 16-Sep-1984 00:37:5 AX-11 Bliss-32 V4.0-74 P 19 
exchscad fetcherectmt. implied (filb, type) 132308= 138s 99 :30309 LEXCHNG. SREEXCCMD.832; — (6) 
39 1 GLOBAL ROUTINE exch$cmd_fetch_recfmt_implied (filb : Sref_bblock, ZSBTTL ‘exch$cmd_fetch_recfmt_implie 
1 type : Sref_bvector) : NOVALUE = 


BEGIN 
164 
FUNCTIONAL DESCRIPTION: 


This routine sets Fhe correct /RECORD_FORMAT qualifier for the current file based on the record form 
the namb and the file type string. 


INPUTS: 


filb - pointer to file structure 
type - address of the three letter file type string 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
filb$b_rec_format is set, along with other associated bits 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 


none 


$dbgtrc_prefix ('cmd_fetch_recfmt_implied> '); 
REGISTER 


rec_format 

BIND 
namb = filb pf it bSe_essoc nasb : $Sref_bblock, 
volb = filb Cfilb$a_assoc_volb] : Sref_bblock 


Sdebup_print_t ijt (‘entry’); 

Sblock-check"(2, .filb, filb, 401); 
Sblock_check (2, .namb, namb, 402); 
Sblock_check_if_nonzero (2, .volb, volb, 403); 


! Copy everything from the namb to the filb 


] 
filb Ffitbgvrfat_explicit = .namb (namb$v_rfmt_explicit); 
filb Cfilb$v_cctl_explicit = .namb Cnamb$v_cctl_explicitd; 


<m 
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arsing utility routines 18-5e -1984 00:37:5 AX-11 Bliss-32 V4.0-74 
Petch rectmt. implied (filb, type) 1 ~Sep-19 4 99:30;09 le 
filb Cfilb$b_car_control) = .namb [(namb$b_car_control]; 
filb Lfilb$b_rec_ format = .namb [namb$b_rec_ format; 
filb Lfilb$b_transfer_mode) = ,namb [namb$b_transfer_mode); 
filb [filbSl_fixed len = .namb [namb$l_fixed_ lend; 
filb CfilbSb_pad_charJ = .namb Lnamb$b_pad_charJ; 
If the record format is valid, then we are done 
df tite CfilbSb_rec_format] NEQ filbSk_rfmt_invalid 
RETURN; 
Assume a record format based on the volume format and file type string 
i 
cASE -namb Cnamb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 
Cvolb$k_vfmt_dos11, volbSk_vfmt_rt11] : '\ , volbSk_vfmt_rtmt] : 
SELECTONE true 
OF 
SET 
CCHSEQL (3, UPLIT BYTE (‘'OBJ'), 3, type [0J) OR 
CHSEQL (3, UPLIT BYTE (‘STB'), 3, type 83} OR 
CHSEQL (3, UPLIT BYTE ("BIN'), 3, type ) _OR 
CHSEQL (3, UPLIT BYTE ("LDA'), 3, type (0]) ]: 
filb Cfilb$b_rec_format] = filbSk_rfmt_binary; 
CCHSEQL (3, UPLIT BYTE ("EXE'), 3, type 9} OR 
CHSEQL (2, UPLIT BYTE ( ‘LB'), 2, type C1]) OR 
CHSEQL (5, UPLIT BYTE (‘SAV'), 3, type $1} OR 
CHSEQL (3, UPLIT BYTE ('SML'), 3, type £0]) OR 
CHSEQL (3, UPLIT BYTE (‘SYS’), 3, type COJ) _OR 
CHSEQL (3, UPLIT BYTE ("TSK"), 3, type (0J) ] : 
BEGIN 
filb pti lbSb rec. fornat = filbSk_rfmt_fixed; 
al filb$l_fixed_len] = 512; 


COTHERWISE) : 
filb Cfilb$b_rec_format] = filbSk_rfmt_stream; 
TES; 


END; 
res COUTRANGE , INRANGE J : Slogic_check (0, (false), 229); 


RETURN; 
END; 


<m 


XCHNG.SRCJEXCCMD.B32; 
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Exes MD Command parsing ier ettae 19~300°1986 90:32:30 ort Bliss-32 V4.0-74 Page (3 


$s 
ed (filb, type) 


exch$cmd_fetch_recfmt p-1 XCHNG.SRCJEXCCMD.B32; ) 
.PSECT EXCHSCMD_PLIT,NOWRT,2 
4A 62 4F 00154 P.AAY: . ASCII \OBU\ : 
42 ee 33 157 P.AAZ: ASCII \STB\ : 
4F 49 4 15a P.ABA: ASCII \BIN\ : 
41 44 46 150 P.ABB: ASCII \LDA\ : 
45 58 4 160 P.ABC: ASCII \EXE\ : 
42 4 163 P_ABD: “ASCII \LB\ : 
56 4 165 P.ABE: ASCII \SAV\ : 
4¢ 4D 0168 P_ABF: “ASCII \SML\ : 
53 59 0168 P.ABG: .ASCII \SYS\ : 
4B 53 54 O016E P.ABH: <ASCII \TSK\ : 
.PSECT EXCHSCMD_CODE,NOWRT,2 
O7FC 00000 ENTRY EXCHSCMD_FETCH RECEMT IMPLIED, Save R2,R3,- ; 0590 
R4,R5,R6,R7,R8,R9O,R10 s 
5A 000000006 EF 9E 00002 MOVAB EXCHSUTIL_BLOCK_CHECK, R10 : 
59 0000° CF 3 0009 MOVAB P.AAY, RO ; 
54 04 AC DO 0000 MOVL Fits R4 + 0633 
52 O35B00FA BF 20 001 MOVL  #56295674, R2 + 0638 
51 0191 8F 3¢ 0001 MOVZWL #401, R1 : 
50 54 DO OOO1E MOVL  R4, RO ; 
6a 16 00021 JSB XCHSUTIL_BLOCK_CHECK : 
53 18 A4 DO 000 3 MOVL R4), R + 0639 
52 O10A00F F 20 909 MOVL #17432823, R2 : 
51 0192 BF 3¢ 000 : MOVZWL #402, R1 : 
50 3 pO 000 MOVL : : 
6A 16 000 JSB EXCHSUTIL_BLOCK_ CHECK : 
1C AG D3 0038 TSTL B(R4) + 0640 
12 13 0003B BEQL é : 
52 0418005 3 8F 00 0030 MOVE 468878579, R2 ; 
51 0193 BF 3C 00044 MOVZWL #403, R1 : 
50 1C A& dO 00049 OVL 28¢R4), RO : 
6A 16 90040 JSB EXCHSUFIL LOCK CHECK ; 
01 00 0085 C3 FO O004F 1$: INSV 133(R3), BO, #1, 43(R4) > 0644 
C3 01 gi EF 00057 EXTZvV. #1, #1, 13 (R) RO : 0645 
01 01 0 FO 0005 INSV RO ; #1, 430R4) : 
58 8 Ad 3 0064 MOVAB 40(R4), RB > 0648 
68 B A3 90 00068 MOVB 123(R35, (RB) : 
9 Ad 7¢ «6—A3 «BO 06¢ MOVW  124(R3). 41(R4) + 0649 
5 Ab 7E OA p 1 MOVL 1 G«R ); 23(R4) : 0650 
9 AG 0082 ¢ 76 MOVE 130(R3). 57(R4) : 0651 
: 95 0007C¢ TSTB = (RB) + 0655 
1 1 0 7 BEQL 2 ; 
04 0 RET : 
03 00 7A AB. BF 00 1 a8: CASEB 122¢R3), #0, #3 + 0662 
0008 001¢ 000 086 3$: WORD 4$- .- : 
rt i 7°" e 
7E ES 8F 9A OOOBE 4$: MOVZBL i2 » =(SP) + 0696 
1 DD 0009 PUSHL # : 
000000006 8F ODD PUSHL wEXCHS BADLOGIC : 
000000006 00 3 FB OOO9A CALLS #3, LIBSSTOP 
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EXCHSCMD Command parsing utility routines 1b-5e -1984 :37: AX-11 Bliss-32 V4.0-74 E 
v04- exch end fetch orec fmt. implied (filb, type) 1 300-1382 99:30:09 YEXCHNG’SRe EXCCHD :63e. es (8 V 
04 Al RET : ; 

55 08 at b0 Ry 5$: ROVL TYPE, R5 : 0670 : 

65 69 é A CMPC3 #3, P.AAY, (R5) : ; 
AC BNEQ 6 : : 

be 00080 6$ at Ok + 0671 

65 03 Ag 23 B CMPC3 a, P.AAZ, (R5) : 3 
bg 00089 ANE oe 

" ? 4 =e eee u - ; 0672 

65 06 Ad 23 Oot CMPC3 #3, P.ABA, (R5) : : 
C BNEQ 8S : 3 

bg 000¢7 INCL R7 : : 

57 26 C 9 0C9 8$: BISL2 R6, R7 : : 

$ D4 doce CLRL R : 0673 : 

65 09 «Ad 29 0 Oce CMPC3 #3, P.ABB, (RS) : : 
2 12 000D BNEQ 9$ : 3 

§ bg 90005 INCL RG ; : 

56 57 C8 00007 9S: BISL2 R7, R6 ; 3 

01 56 OD SO0DA CMPL R6, #1 + 0672 : 

04 42 00DD BNEQ 1 : : 

68 01 90 000DF MOVB #1, (RB) 3 0675 : 

04 O00E¢ RET : : 

57 b4 OOOES 108: CLRL R7 : 0677 : 

65 oc ag 03 29 000E5 CMPC3 #3, P.ABC, (RS) : : 
0@ i OOOEA BNEQ 11$ : ; 

57 D6 OOOEC INCL R7 : : 

56 D4 OO0EE 11$: CLRL R6 ; 0678 : 

01 =AS OF A9 Bi OOOF CMPW 3=Ss«éPC ABD, 1(R5) : : 

02 12 OFS BNEQ 12$ : : 

28 6 OOF INCL RS F : 

56 57 C¢ O0r9 128: BISL2 R7, R6 : : 

57 D4 OOOFC CLRL R7 : 0679 5 

65 11 Ad 03 29 OorE CMPC3 #3 P.ABE, (R5) : : 
02 12 10 BNEQ 138 : ; 

06 00105 INCL R7 ; : 

™ ae O010A -— Fe © : 0680 ; 

65 14 Ad $ 3 B10e CMPC3 #3, P.ABF, (RS) : : 
2 12 00111 BNEQ 14$ F 3 

§ 06 11 INCL RS : 3 

56 C 115 148: BISL2 R7, R6 : 3 

7 04 0011 CLRL 7 : 0681 : 

65 17 a9 9 OO11A CMPC3 #3, P.ABG, (R5) : : 
11F BNEQ 15$ ; 3 

D 121 INCL R : : 

57 6 C8 \ 3 158: BIst2 RG, R7 : pm : 

65 1A AQ 83 29 1 g CMPC3 Rg P.ABH, (R5) ; ; 
2 12D 16§ : ; 

$ D 12F INCL RS : ; 

56 C 131 16$: BISL2 R7, R6 : : 

01 & p 1 CMPL RG i : 0681 : 

A : 137 BNEG =«*'7$ : : 

68 2 90 00139 VB = #2, - (RB) : 0685 : 


12 
Sbec000 Gcengcad fetcherec int implied Ciilb, typed ii: 3b-1882 99:35:89 HXchne SaeSexe cho 03549 ra as 
35 AG 0200 8F ‘ 13 MOVZUL #512, 53(R4) : oss 
68 03 i i 17$: MOVB #3, (R8) : 3 
4 RET ; 0700 


; Routine Size: 5327 bytes, Routine Base: EXCHSCMD_CODE + O3AF 
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PERESSES 


Command parsing utility routines 
exch$cmd_fetch_vol_format (namb) 


GLOBAL ROUTINE ee ey i (namb : 
BEGIN 


AX-11 Bliss-32 V4.0-7 
EXCHNG.SRCJEXCCMD. B35; 


geacs = ZSBTTL ‘exch$cmd_fetch_vol_format (namb)' 


am 


lo 


{ FUNCTIONAL DESCRIPTION: 


This routine determines the /VOLUME_FORMAT for the current file (i.e. the last CLISGET_VALUE for a f 
s dispatched to one of two sub-routines depending on whether an expl 
/VOLUME_FORMAT is present or whether volume format should be assumed from the device characteristics 


establishes current). 


- pointer to name structure 
IMPLICIT INPUTS: 
command language interpreter callbacks will retrieve command Line information 


- volume format status will be inserted into the namb 
IMPLICIT OUTPUTS: 


t ROUTINE VALUE: 
True if success, bad status code if any error (not present is success) 


wiles prefix (‘cmd_fetch_vol_format> '); 


MSG$_SYNTAX error if /VOLUME_FORMAT is not allowed on the current parameter. 


! We should get a 
: The return status (from this routine) will be -1 (success) if the ng = occur 


by unwinding if we see it. 


LE 
exch$cmd_unwind_cli_syntax; 


Sblock_check (2, .namb, namb, 404); 


PIP IPIMINIPIDNINIPININIPININIDAIPYDINPINIPIPIPIPINIPINIPOPINPIPIPIPIPIPIPOPIPPIPOPIPIPIPIPIPUPIPONIPNPPYD 
nm m.- 
r 


!' It would be nice to know now if the input is something els 
: If the qualifier is specified, then return the explicit value 
IF cli$present (ZASCID ‘VOLUME_FORMAT) 

RETURN cmd_fetch_volfmt_explicit (.namb) 
RETURN cmd_fetch_volfmt_implied ¢.namb); 


! Decode and check the explicit qualifier 
! Imply volume format from the device 


a 
a 


00 00 54 41 


; Routine Size: 


Command parsing utility routines 
exch$cmd_fetch_vol_format (namb) 


46 SF 45 4D 55 4C 4F 


000000006 


0000V 


0000Vv 


0000Vv 


Routine Base: 


EXCHSCMD_COD 


171 
56 174 
8° 183 
£08 D 1 
0000" 001 
0004 444 
F +3 Bods 
F be 
F 3¢ 8 0 
AC 00 8 01 
EF 16 0001 
‘ oF Bpbss 
1 FB 00021 
30 £9 00028 
AC 0D 00028 
01 FB 000 3 
04 000 
AC 0D it 
01 FB 00037 
04 0003¢ 
0000 00030 
7E 04 0003F 
5E DD 00041 
AC 7D 00043 
05 FB 00047 
04 0004C 
E + 04F6 


1984 99:35:89 YeXcnc SHESERE cho B35¢ 


«PSECT EXCHSCMD_PLIT,NOWRT,2 
-BLKB 3 
eASCII = \WOLUME_FORMAT\<0><0><0> 


-LONG 17694733 
«ADDRESS P.ABJ 


~PSECT EXCHSCMD_CODE ,NOWRT,2 


»ENTRY SCHOEN. FETCH VOL _FORAAT. Save R2 
MOV $, (FP) 


AL 

OVL #17432823, R2 

MOVZWL #404, R1 

OVL 

JSB EXCH$UTIL_BLOCK_CHECK 

PUSHAB  P.ABI 

CALLS #1, CLISPRESENT 

BLBC ~—E_—«aRO,._:*‘18 

PUSHL 

CALLS #1, CMD_FETCH_VOLFMT_EXPLICIT 
PUSHL NAMB 

CALLS #1, CMD_FETCH_VOLFMT_IMPLIED 
«WORD Save nothing 

CLRL = = (SP) 

PUSHL SP 

OVO 4 (AP), -(SP) 
CALLS #3, EXCHSCMD_UNWIND_CLI_SYNTAX 


em 
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EXCHSCMD Command parsing utility routines 16-Sep-1984 00:37: AX-11 Bliss-32 V4.0-74 Pp 
V04- cad. fetch vol fat explicit (namb) 122888718 4 99330509 LEXCHNG: SRE EXCCMD.B32; fee BS 
3 755 1 GLOBAL ROUTINE cmd_fetch f ici : dz vm ° ‘ 
666 f é SL 008 md_fetch volfmt_explicit (namb : $Sref_bblock ZSBTTL ‘cmd_fetch_volfmt_explicit (namb) 
oe Rg 
3 670 138 | FUNCTIONAL DESCRIPTION: 
: 67 761 i This routine retrieves the /VOLUME_FORMAT qualifier for the current file (i.e. the last CLISGET_VA 
; er B for a filename establishes current). . . a_intratelininirintala tents 
; 675 0764 i INPUTS: 
4 77 are ! namb = pointer to name structure 
: 679 0768 { IMPLICIT INPUTS: 
; $8) 14a command language interpreter callbacks will retrieve command Line information 
: o8s O77 i QUTPUTS: 
; eH bore namb - volume format status will be inserted into the namb 
: 687 0776 i IMPLICIT OUTPUTS: 
; 688 077 ! 
: 850 O779 3 i ven 
; 691 0780 ! ROUTINE VALUE: 
3 oor Ores True if success, bad status code if any error 
: 695 0784 2 | SIDE EFFECTS: 
; 696 0785 ! 
3; 697 te) ! none 
a ie 
; 700 24.94 $dbgtrc_prefix ('cmd_fetch_volfmt_explicit> "); 
: 70 0791 2 REGISTER 
: 70 8238 vol_format 
: 308 O79 : 
; m8 144 $debug_print_lit (‘entry> '); 
; A O79? namb Cnamb$v_vfmt_explicit] = true; ! Remember that we were given a value explicitly 
3 at 0739 : Convert the keyword presence to the symbolic representation of the qualifier keyword for real volume forma 
i 01g itt vol_format = (SELECTONE cLiS_locpres OF 
: 714 508 cli$present (ZASCID ‘VOLUME_FORMAT.DOS11")] : volb$k_vfmt_dos11; 
3; 715 bape cli$present (ZASCID a NOL UIRS oF ORBIT ELSE II D2 : v LbSk-vfmt_filesi1; 
; 716 805 4 cli$present (ZASCID ‘VOLUME_FORMAT.RT11°)) : BEGIN 
; viv B08 4 '\ IF .namb Cnamb$b_devclass] EQL dc$_d 
; a 3 4 '\ THEN 
3; 3 4 volb$k_vfmt_rtl1 
: 720 3 4 '\ ELSE IF~.namb Cnamb$b_devclass] EQL 
: rs] 10 4 '\ THEN 
3 fee 0811 4 : vol_format = volbSk_vfmt_rtm 


—— eee 


am 


Mae Be ee oe Oe Os Oe ws os O68 Os Oe Os Os O8 Os BF Ge BH Gs Be Oe BH Be SH Ose BF Oe Oe Oe Os Os Oe OF Os Ge OF Os Os Ose Se Sees SHE Se SH Se Se ee Fe Se eete Se teas 
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XCHSCMD Command p arsing utility routines 16-Sep- “I-11 Bliss-32 V4.0-74 Pp 7 E 
04-000 cmd_fetc A vol tnt Vexplicit (namb) 14- ~Sep- 1986 98: 35; 34 EXCHNG.SR RCE XECMD 63004 tes BS V 
s 723 1 3 
; f ¢ Ht eth ee : Rete shes’ (0, (false), 308); 
 % 6 0815 T 
eB 81 ' Now we do a cheat. We will er are our explicit volume format with the implied value, if th 
: 728 thi ! different the explicit value is) wrong! A bere Be pow test will be necessary when/if EXCHAN ” sei 
; f 0819 supports more than the current set of volume formats. 
: 731 8 
: 4 ¢ 83 ° F gnamb Enamb$b_vo _format] NEQ’ -vol_format 
4 2 8 § NRETURN exch$_invvol fmt; 
; 736 0825 RETURN true; 
: 737 0826 1 END; 


~PSECT EXCHSCMD_PLIT,NOWRT,2 


; 

; 

| ; 

end. fetch_volfmt_implied (.namb); : 
44 2— 54 41 4D 52 GF 46 SF 45 4p 55 4C 4F 56 0018C P.ABL: .ASCII \VOLUME_FORMAT.D0S11\<0> ; : 
0 1 31 53 4F 90198 : : 

010E0013 O01A0 P.ABK: .LONG 17694739 : : 

00000000" 00144 .ADDRESS P.ABL ; : 

46 2—E 54 41 4D 52 GF 46 SF 45 4D 55 4g 4F 56 QO1A8 P.ABN: .ASCII \VOLUME_FORMAT.FILES11\<0><0><0> : ; 
00 00 00 31 31 53 45 4¢C 49 00187 ; : 
010€0015 001CO P.ABM LONG. 17694741 : : 

00000000 001¢4 N : : 

52 2—€ 54 41 4D 52 4F 46 SF 45 4D 55 4C 4F 56 O001C8 P.ABP: Agel 5 WOLUME _FORMAT.RT11\<0><0> : : 
00 00 31 31 54 90107 : : 

010E0012 901DC P.ABO: .LONG 17694738 ; : 

00000000" 001E0 .ADDRESS P.ABP : : 

.EXTRN EXCHS_INVVOLFMT : 

.PSECT EXCHSCMD_CODE ,NOWRT,2 : 

001¢ 00000 -ENTRY CMD_FETCH VOLEMT _EXPLICIT, Save R2,R3.R4 : 0755 : 

54 000000006 00 9€ BR RRS MOVAB CLISPRESERT, 3 F 

53 04 ac v0 444 OVL 3; 0797 3 

0085 §6¢3 4 88 00000 BISB2 #4, 133(R3) : : 

52 000000006 8F 00 90012 OVL acts. LOCPRES, R2 ; 0801 : 

0000 CF 9F 00019 PUSHAB K~ ; 0803 3 

$4 O1 Fe 901 CALLS }. CLISPRESENT : : 

0 é D CMPL : : 

a 00 BNEQ : 3 

52 1 00 00025 MOVL #1, VOL_FORMAT : ; 

9 11 99 8 BRB 4$ F ; 

0000' CF 9F OO02A 18: PUSHAB P.ABM : 0804 : 

64 1 FB 9 : CALLS #1, CLISPRESENT ; : 

0 é D CMPL R2, R ; F 

i 0 BNEQ : ; 

52 § D MOVL a. VOL_FORMAT ; ; 

11 BRB 4 ; 3 

0000' CF 9F B 2%: PUSHAB P.ABO : 0805 ; 

$4 1 FB . CALLS #1, CL ISPRESENT ; : 

0 2 D1 00042 CMPL OR, R | 


“exc Commend p arsing etil ity routines 18-Sep-1984 99: 3: 39 X-11 BLi iege7e 8 Oeee Page (8 


04 end. fetch -volfmi_explicit (namb) -Sep- ex XCHNG. SRCJEXCCMD.B32; 
1 45 BNEQ = 3 : 
52 47 MOVL #3, VOL_FORMAT : 
7E 0134 8F 3C 0004C 3$ MOVZWL #308, -(SP) + 0813 
000000006 BF pb PUSHE Dec ADLOGIC ; 
000000006 99 FB CALLS ct tagerb : 
D 6 MOVL RQ. Hol” ORMAT : 
DD 4$: PUSHL R + 0820 
0000v ce 1 FB 0006 CALLS ai. CHD. FETCH_VOLFMT_IMPLIED F 
52 7A AB 8 0 i gA CMP ZV 122(R3), VOL-FORMAT + 0821 
50 000000006 8F p6 0972 MOVL ices peared, RO + 0823 
50 DO OOO7A 5S: MOVL #1, RO + 0825 
04 0007D RET + 0826 
; Routine Size: 126 bytes, Routine Base: EXCHSCMD_CODE + 0543 
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EXCHSCMD Command parsing utility routines 1b-se -1984 00:37:50 AX-11 Bliss-32 V4.0-742 Page 29 
v04-000 cnd fetch vol fat implied tnamb) 12788p-198e 93:39:89 HEN Cunc’sRecexe cmp: 03244 v8) 
; 3? 0827 1 GLOBAL ROUTINE cmd_fetch_volfmt_implied (namb : $ref_bblock) = %SBTTL 'cmd_fetch_volfmt_implied (namb)' 
: 740 0898 BEGIN welt = - hi — 
3: 741 08 '++ 
3 rg 0830 : 
3 ihe 08 } 2 } FUNCTIONAL DESCRIPTION: 
s 745 Sf § : This routine establishes the default /VOLUME_FORMAT qualifier for the current file based on the devi 
; 746 0834 : type and characteristics. 
: 747 0835 ' 
: 748 08 § ' INPUTS: 
; $36 OB 8 b i 
; ' nam - pointer to name structure 
731 O88 5 | : 
: Peg 0840 ' IMPLICIT INPUTS: 
; 75 0841 ! 
: 754 pets ! none 
3 99 084 ‘ 
; 756 0844 2 ! OUTPUTS: 
: for 0845 § ‘ 4 
3 P38 beet namb - volume format status will be inserted into the namb 
: 760 0848 ! IMPLICIT OUTPUTS: 
: 761 0849 ! 
; ree 0850 : none 
; 76 0851 ‘ 
; 764 eth) ' ROUTINE VALUE: 
3 765 085 } 
3 ree Gace § : True if success, bad status code if any error (not present is success) 
: 768 0836 $ ! SIDE EFFECTS: 
: 769 085 ! 
; 770 0858 2! none 
3: 771 0859 !<< 
. OE 0860 
:  2e 0861 $dbgtrc_prefix ('cmd_fetch_volfmt_implied> '); 
3 774 Bag 
3 775 086 REGISTER 
3; 776 0864 vol_format 
: 777 0865 ; 
: 778 0866 
3; 779 0867 BIND : 
: 780 0868 dev = namb Cnamb$l_fabdev] : Sbblock ! Device characteristics 
; «(781 0869 3 
; 78 TA 
3 My, eth $trace_print_lit (‘entry'); 
; $4 + $44 vol_format = volb$k_vfmt_invalid; !2? assume invalid volume type 
: 787 0875 ! Determine the characteristics of a disk 
: 788 Ba78 ! . 
: 789 087 IF _.namb Cnamb$b_devclass] EQL dc$_disk 
: 790 0878 THEN 
3 a4 ts BEGIN 
3 ak a88 Slogic_check (2, (.dev Cdev$v_dir] AND .dev Cdev$v_fod] AND .dev Cdev$v_shr]), 100); 
3; 795 0888 IF .dev Cdev$v_for] 
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Command parsing utility routines 16-Sep-1 7:5 AX-11 Bliss-32 V4.0-74 P 0 
cnd_ fetch. voltat “lap iee (namb) 14-Sep- ats 99: 35: ay EXCHNG.SRCJEXCCMD.B32; St (33 
eas § Hm (NOT (.dev Cdev$v_mntj)) 
: § for my Pre volb$Sk_vfmt_rti1 
tt ELSE” of -dev Cdev$v_mntJ 
0889 vol_format = volb$Sk_vfmt_files11 
0890 ELS 
+94 $logic_check (0, (false), 230); ! shouldn't be any other choices 
bB98 END 
0894 
Ba32 } Determine the characteristics for a tape 
0897 ELSE IF .namb Cnamb$b_devclass] EQL dc$_tape 
3.44 EN REGIN 
344 Slogic_check (2, (.dev Cdev$v_sqd] AND .dev Cdev$v_fod]), 101); 
090 ; IF .dev FdevSv,f or] 
0904 4 OR (NOT (.dev rioray _mntj)) 
0905 THEN 
0906 vol_format = volb$k_vfmt_dos11 
0907 ELSE. IF7 -dev Cdev$v_mnt] 
0908 3 THEN 
0909 4 BEGIN 
0910 4 $Slogic_check (2, (.dev Cdev$v_dir] AND .dev Cdev$v_sdiJ), 102); 
0911 4 vol_format = iolbsi _vfmt_filesi1; 
091 4 END™ 
091 ; ELSE 
0914 $Slogic_check (0, (false), 231); 
0915 3 
0916 ; END 
0917 
e444 ; Device is neither disk nor tape. !?? Assume it is Files-11 (term, lp, etc) 
0920 ELS 
944 Neal format = volb$k_vfmt_files11; 
0398 namb Cnamb$b_vol_format] = .vol_format; ! store the final value 
0925 Fg true; 
0926 1€E 
007C 00000 ENTRY et CTC VOL PIE LIED Save R2,R3,R4,R5,~; 0827 
56 900000006 ar D0 9002 MOVL § #EXCHS$_BADLOGIC, R6 ; 
2? 00000000G 00 9€ 0000 MOVAB LIBSSTOP, RS 5 
4 04 AC D 10 MOVL NAMB, R ; 0868 
53 68 AS SE 00014 MOVAB 104(R4), R3 : 
52 o 18 CLRL Vv ‘ FORMAT ; 087 
01 78 <A& 91 OOOTA CMPB 120TR4), #1 ; 087 
24 12 QOOIE BNEQ 4 : 
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; Routine Size: 
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] 
oh pat ROUTINE exch$cmd_match_filename (len_fil, adr_fil, len_trg, adr_trg) = %SBTTL ‘exch$cmd_match_filen 
ig 

FUNCTIONAL DESCRIPTION: 
| 
| 
j 


This routine compares an RT-11 or DOS-11 filename (result string) with a target filename. The targe 
filename may contain the wildcard characters ‘'*'’ and ‘'%"’. 


i 
i 
i 
i 
; 
INPUTS: 

i len_fil = Length of filename string 

; adr_fil = Address of filename string 

: len_trg - Length of target filename string 

adr_trg - Address of target filename string 

i IMPLICIT INPUTS: 

; none 

t QUTPUTS: 

none 

IMPLICIT OUTPUTS: 

none 

; ROUTINE VALUE: 

True (1) if the target mame includes the filename, False (0) otherwise 
i SIDE EFFECTS: 

! none 


Sdbgtrc_prefix (‘cmd_match_filename> '); 


REGISTER 
lenf = 2, ! Remaining Length of filename 
adrf = 3, ! Current address in filename 
lent = 4, ' Remaining Length of filename 
adrt = 5, ' Current address in filename 
chf = 6: BYTE, ' The character from the filename 
cht = 7: BYTE ! The character from target 


: Move the inputs into registers 


lenf = .len_fil; 
adrf = .adr_fil; 
lent = .len_trg; 
adrt = .adr_trg; 


! Scan through all the characters in the target 


am 
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EXCHSCMD Command parsing utility routines 18-5¢ -1984 00:37:50 AX-11 Bliss-32 V4.0-742 Page 33 E 
v04-000 exchscnd match filename 1 ~Sep-19 4 99:39:03 EXCHNG. SRCJEXCCMD B32; 1 . «1d \ 
897 84 4 } 
43 985 DECR k FROM .lent-1 TO 0 
99 9 dO 
900 9 BEGIN 
901 988 lent = .lent-1; ! Decrement torget Length 
808 Beh cht = CHSRCHAR_A(adrt); ! Fetch char and bump pointer 
904 0991 IF .cht EQL ‘*' ! Found a wildcard in target 
908 0998 THEN ° 
308 099 BEGIN 
4 0994 IF .lent EQL 0 ! Wildcard at end of target string 
8 84 ! matches everything, return a 
909 4 RETURN true; ! matc 
099 DECR i FROM .lenf-1 TO 0 ! Look through rest of filename 
0998 dO 
0999 BEGIN 
1000 IF _exch$cmd_match_filename (.lenf, .adrf, .lent, .adrt) ! Recursively 
1001 THEN ! examine rest of filename from this 
100 RETURN true; ! point in Lage ood return true if found 
00 lenf = .lenf-1; ! Advance one character in the filename 
4 = = .adrf+i; ! and repeat recursive call 
= false; ! We did not match from wildcard 
BEG! 


lenf = .lenf-1; 


Decrement the input string 
if ateny LSS 0 


f we have exhausted the 

filename string then we did not 
match and we can return false 
Get filename char and bump pointer 
If none of the successful tests 
Did we match? 
Single character wildcard 


RETURN false; 
chf = CHSRCHAR_A (adrf); 
IF NOT ¢ 
(.cht EQL .chf) 
OR (.cht EQL ‘%") 


WARIPIPINPIPINPYPININYNY 2 SO OS OS 


We did not match in any way, therefore 
we can return false from here. 


WN —O0DONOVEWN “OVO ONOAULSWN—O 


Wt 


THEN 
RETURN false; 
ND; 
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33 END; 

337 IF .lenf EQL 0 THEN RETURN true; ! Matched so far, filename exhausted 
o7) RETURN false; ! More characters in filename, no match 
941 END; 
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03FC 00000 ENTRY EXCHSCMD_MATCH FILENAME, Save R2,R3,R4,R5,- ; 0927 
52 04 AC 70 9002 mova = LEN_FEL, LENF : 0978 
24 C aC 7D 000 MOVQ LENTTRG. LENT : 0980 
9 4 pO OOO0A MOVL LENT, K : 0985 

6 11 0000D BRB : 

4 07 OOOOF 18: DECL LENT > 0988 


ELSE . ! No wildcard in target 
} 


EXCHSCMD 
00 


; Routine Size: 


Command parsing utility routines 
exchscnd matchoft : 


83 bytes, 


1 
lLename 1 
7 90 11 
3h BF 8) bole 
1B 1 17 
se aie 

58 20 1 

> 1 
C 6B 

D8 = AF 4 F 4 
21 E8 00028 
5 4 00 : 
FO 23 Pe BbbSe 
1 11 00032 
52 D7 00034 

18 19 000 

56 83 39 000 
56 1 te 
05 13 it E 
25 57 91 00040 
0B 12 00043 
C7 59 F4& 00045 
52 05 00048 
04 12 QO04A 
50 01 pd0 0004C 
04 0004F 
50 04 00050 
04 00052 
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and parsing utility routines 
mambeclone (4 t) 


n_nam 


FUNCTIONAL DESCRIPTION: 


<m | 


X-11 Bliss-32 V4.0-74 
XCHNG.SRCJEXCCMD.B32; 


son ROUTINE exch$cmd_namb_clone (in_namb : $Sref_bblock) 
+ 


" 
| 
| 

ZSBTTL ‘cmd_namb_clone (in_namb)' 
| 


This routine makes a copy of an EXCHANGE structure S$SNAMB. 
INPUTS: 


FF RWWAWAWAII as 


IMPLICIT INPUTS: 


PPADS 
WN ODONAULSWN—O” 


WDOOOODOOOOOOOOVOOO 
Sooo a W 


965 


RRS 


MAMMA 
FUN [SO OODNOAUE WIN O OONAOUES WN "OC VONAUSWN—OO0 1 


none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Address of a duplicate namb 
SIDE EFFECTS: 
none 


ee ee ee ee ene, , | 
+ 


$dbgtrc_prefix ("cmd_namb_clone> '); 
LOCAL 


Be Be Fe Se Se Se Ge Se Be Be Fe Ge Fe Se Ge Ge Be Ge Se Ge Fe Fe Ge Fe Fe Se Se Ge Ge Ge Fe Ge Fe Sse Se Ge Ge Fe Se Se Se Se Se Ge See Se Se Sees See Se Se Seas ee 


ae ee ee ee ee en ee SS) ono 


RPP PDP PPORIPIPIAIMNININIPIPYBSPIRDMUPINIPIPIPOPIPINIPIPIPINIPIPIPIPYIPIPIPIPIPIPIPIPIPIPIPIPINIPIPPUNIPND 


2 out_namb : Sref_bblock ! Pointer to the new namb 
i ° 
i Sblock_ check (2, .in_namb, namb, 405); 
1 Get a new namb 
O78 out_namb = exch$util_namb_allocate (); 
372 : Make copies of the dynamic strings 
O79 str$copy_dx (out_namb [namb$q_input), in_namb nambsa_inout) ; ! Copy the input name 
078 str$copy_dx (out_namb [namb$q_fullname], in_namb [namb$q_fullname]); ! Copy the vino}. fully expanded nam 
79 str$copy_dx (out_namb [namb$q_expanded], in_namb namp2d_expanded ); |! Make a copy of the expanded name 
str$copy_dx (out_namb nembed_resylt P _namb [namb$q_resultJ); ' Copy the result name 
; str$copy_dx (out_namb [namb$q_device_dvi], in_namb [namb$q_device_dviJ);! Copy the canonical device name 
'¢ 
4 ! Now we need to get a Little ererter. The namb contains lengths and addresses inside the expanded or resul 
5 ! string for the rest of the filename components. The safest way is to make new dynamic strings for each of 


in .namb - address of the created name block 
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Command parsing utility routines 18-50 Sep-1984 AX-11 iss- 4. 
cad_nemb clone (innene) met) Pe te TT et tats cee Page 476 


i Hts components, This will result in some small pieces of unrecoverable garbage when this namb is reused 
t won't be significant. 


1 3 
: : 
1 § Sayn_ str_desc_init (ous nam Cnamb$q_node)) ; ! Node name descriptor : 
1090 trsco y_dx “a namb [hamb$q_node), in onan , EnambSq.. node]) ; . 
1091 dyn_str =ges¢ nit four -n onb “tnanbsa eg t Device name descriptor ; 
1 % girs feey" “dx (Sut spamb fan bsqid gel n wr ifrandsa. devi e)); : 
109 dyn_str_desc_init (out_ —_ Enamb$q_ direct tory]) rectory_name descriptor : 
1094 2 str$copy-dx Cyt, namb sq. direct tory). in “hand Cnamb$q_ directory]); F 
1095 $dyn_str =des¢ nit (out ne nan Enamb a. na me name descriptor ; 
1 % str$copy_dx (Out sramb famb$q_name “ines 3 nb Cnamb$q_ nane): F 
193 $dyn_str =de8¢.. init cous .nee “tnanb a. Type name descriptor : 
1098 2 strS$topy-dx (Gut zamb namb$q_type), nenamb jfrandsa_ type]); F 
1099 $dyn_str_desc_init (our mand ECnamb$q_ yeFsio Version name descriptor : 
1100 str$copy_dx (Gut_namb Ciamb$q_versiond, in yal Cnamb$q_ Bea F : 
1198 Copy the last part of the block exactly ; 
1198 CHSMOVE (exchblLk$s_namb - namb$k_start_zero, .in_namb + namb$k_start_zero, .out_namb + namb$k_start_zero); : 
1106 $debug_ a, fao ('''!AS'’ ““!AS"' "HAS" “"tas’’ “"tas’’ “las’’ tas’, : 
1107 t_namb frambsa_ node), out_namb preabéa. device], out “namb Cnamb$q_directory], 3 
Y's — =namb Cnamb$q_name], out_namb Cnamb$q_typeJ, out_namb [Cnamb$q_version], out_namb [namb$q_device_d : 
1110 RETURN .out_namb; : 
1111 1 END; : 
-EXTRN STRSCOPY_DX : 

01FC 00000 -ENTRY RRB NAMB_CLONE, Save R2,R3,R4,R5,R6,- =; 1029 : 

58 000000006 FF 9E 00002 MOVAB = TMPL : : 

57 00000000G 00 9€E 00009 MOVAB estore DX, R7 3 3 

53 04 AC 00 00010 MOVL IN_NAMB, R3 : 1069 3 

52 O10AO0F7 = BF v0 00014 MOVL WN7u3z863, R2 : : 

51 0195 F 3C 0001B MOVZWL 3 3 

50 3 pO 00020 OVL aa” of 3 r 

00000000G EF 16 00023 JSB EXCH weur i BLOCK. CHECK 3 $ 

000000006 ¥ 0 FB 00029 CALLS #0, EXCHSOTIL_NAMB_ALLOCATE : 1073 3 

6 0 p0 000 VL RO pom: 3 i 

10 A3 9F 000 PUSHAB 16(R3) : 1077 : 

10 Ad 9F 38 PUSHAB 16(0U ) 3 3 

67 0 FB CALLS a OgtRacorY. DX 3 3 

18 A3 9F 0003C PUSHAB : (r3) : 1078 : 

1 A6 OF 4 F PUSHAB 24(0OUT ) 3 é 

67 02 FB rk: CALLS # SIRSCOPY. Dx : FY 

30 A 3F 04 SHAB ; (r3) > 1079 : 

A F 48 PUSHAB (OUT_NAMB) : H 

67 02 FB 8 4B CALLS @# SIRSCOPY DX F 3 

38 AS 9F O004E SHAB 40(R3) > 1080 : 

A6 OF 51 PUSHAB 40 (OUT ) F 3 

67 0 FB 4 CALLS a gihscopy OX : H 

30 A oF 0 7 SHAB 48(R3) > 1081 : 

ag F A PUSHAB 48(OUT_NAMB) : i 

67 02 FB 00050 CALLS #2, STRSCOPY_DXx 3 i 
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EXCHSCMD Command parsing utility routines 16-Sep-1984 00:37: AX-11 Bliss-32 V4.0-74 Page 37 E 
v04-000 cad_nambeclone-(in_ nano) 13730871382 99:39:08 LEXCHNG. SRe EXCCMD.B32; ’ a V 
5 38 Ab YE 00060 MOVAB 56(OUT_NAMB), RO : 1089 ; 
20 és ¥f 64 OVO  TMPL, TRO) : ; 
38 A oF 7 PUSHAB 26(R3) + 1090 : 
Ag F OOO6A PUSHAB 56(OUT_NAMB) : F 
67 02 FB $0 CALLS #2, STRSCOPY_Dx : : 
0 40 OA 3 070 MOVAB 64(OUT_NAMB);> RO : 1091 ; 
60 68 7D 00074 Ova TMPL, TRO) : ’ 
40 A3 OF 077 PUSHAB 64(R3) + 1092 : 
4 ag 9F OOO7A PUSHAB 64(OUT_NAMB) : ; 
$7 02 FB 0007D CALLS a3 STRSCOPY_DX : ; 
0 48 A6 9E 00080 MOVAB 72(OUT_NAMB)> RO + 1093 F 
60 68 70 0 vQ TMPL, TRO) : ; 
48 A3 OF 7 PUSHAB 72(R3) + 1094 : 
48 Ad SF OOOBA PUSHAB 72(OUT_NAMB) : ’ 
? 02 FB 00080 CALLS #2, STRSCOPY_Dx : : 
30 50 A6 9E 00090 MOVAB 80 (OUT_NAMB);> RO + 1095 ; 
68 7D 00094 vO TMPL, TRO) : ; 
50 A3 9F 00097 PUSHAB B0<RS) + 1096 F 
50 Ad YF OOO9A PUSHAB 80(OUT_NAMB) : : 
02 FB 0009D CALLS #2, STRSCOPY_Dx : ; 
50 58 A6 9E OOOAD MOVAB 88(OUT_NAMB);> RO + 1097 F 
68 7D OO0A4 ova TMPL, TRO) 3 ‘ 
58 A3 9F 000A7 PUSHAB 8 (R$) : 1098 ; 
58 Ab 9F OOOAA PUSHAB 88(OUT_NAMB) ; : 
67 02 FB OO0AD CALLS #2, STRSCOPY_Dx : : 
50 60 A6 9E 00080 MOVAB 96(OUT_NAMB)> RO : 1099 : 
60 68 7D 00084 MOVQ TMPL, TRO) ; : 
60 A3 9F 00087 PUSHAB 96(R3) : 1100 : 
60 Ad 9F OOOBA PUSHAB 96 (OUT NAMB) : F 
67 02 FB 000BD CALLS #2, STRSCOPY_Dx : : 
68 Ab 68 A} 0OA2 8F 28 000C0 MOVC3 #162, 104(R33, 104(OUT_NAMB) : 1104 ; 
50 6 dO 000C8 MOVL T_NAMB, RO + 1110 ; 
04 000CB + 1111 ; 
; Routine Size: 204 bytes, Routine Base: EXCHSCMD_CODE + 069C : 


—————— 
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v04- cad_nenb’ feb, copy (fae, namb) 12-8 08-19be 99339504 LEXCHNG SRETEXCCMD B32: . 35 V 
; 8 1118 1 SL ORAL ROUTINE cmd_namb_fab_copy (fabb : Sref_bblock, namb : Sref_bblock) : NOVALUE = %SBTTL "cmd_namb_ fab/ : 
; 1029 1114 2 I++ : 
1081 1118 | FUNCTIONAL DESCRIPTION ; 
3 1936 Hig ! : 
3 4 Z 1138 This routine copies information from a fab (and its nam block) to a namb. : 
; 1938 1120 ! INPUTS: : 
3 1938 1121 : : 
; 10 11 § : fabb - the address of an RMS FAB, assumed to have a nam block ; 
; 1° 3 1% ? namb = address of the created name block : 
; 1040 1125 ! IMPLICIT INPUTS: H 
; 1041 1126 : F 
3 106§ 1127 : none 3 
; 104 1128 ‘ : 
: 1044 1129 ! OUTPUTS: ; 
: 1045 1130 ! : 
3: 1046 1131 : none $ 
: 1047 1136 ! 3 
; 1048 11 ! IMPLICIT OUTPUTS: 3 
: 1049 1134 ! : 
; 1050 1135 : none : 
; 1051 1136 ! : 
: 1936 1137 ! ROUTINE VALUE: : 
; 105 1138 § ! : 
3 Oe i ie § } True if success, warning status code if unable to parse the parameter : 
: 1056 1141 ! SIDE EFFECTS: 3 
3 1057 1136 ! 3 
: 1058 114 : SNAMB block is filled with file name information : 
: 1059 1144 2 !-- F 
; 1061 1148 5 $db fix ("cmd_namb_ fab ) 
; trc_prefix ('cmd_namb_fab_copy> '); : 
: 1062 1147 = 
3; 106 1148 LOCAL 3 
3; 1064 1149 offset, 3 
: 1065 1150 len, 3 
; 1067 1132 a $desc_block 
: mp_desc : $desc_bloc 3 
: 1068 1138 “he . : 
: 1069 1154 : 
; 1079 1155 2 BIND . é 
; 1071 1156 inp_desc = namb nembSa., input) : $desc_block, ! A descriptor for the input file name (dynamic : 
: 1076 1157 ful_desc = namb ([namb$q_fu inenes : $desc_block, ! A descriptor for the full file name ps : 
3; 107 1158 exp_desc = namb [namb$q_expanded : $desc_block, ! A descriptor for the expanded file name = 3 
; 1074 1159 res_desc = namb [namb$q_result : $desc_block, ! A descriptor for the result file name - ; 
: 1075 1160 dvi_desc = namb [namb a. dey ice_dvii : $desc_block, ! A descriptor for the full device name H 
: 1076 1161 desc = namb [namb$q_ ‘ : $desc_block, ! A descriptor for the node name (point to ex : 
: 1077 1196 dev_desc = namb [namb$q_ ° ce] : $desc_block, ! A descriptor for the device name os 3 
: 1078 116 dir_desc = namb [namb$q_directory] : S$desc_block, ! A descriptor for the directory name ss ; 
3; 1079 1164 nam_desc = namb nanbSq-nane : $desc_block, ! A descriptor for the name name i : 
3 1980 1165 typ_desc = namb [namb$q_type : Sdesc_block, ! A descriptor for the type name o ; 
; 1081 11 ver_desc = nam paapeg_vers ion) : $desc_block, ! A descriptor for the version number ; 
: oes 1198 nam = .fabb Cfab$l_nam : $bblock ! Address of the name block i 
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; 1084 11 
3 1085 1198 sdebug_print.| t (‘entry'); 
; 1086 1171 Sblock_check (2, .mamb, namb, 406): 
3 it 1126 Slogic_ check (2, (mam NEQ 0), 103); 
; 10 117 
: 1089 1174 
: 1a 1103 Copy the DEV characteristics from the fab to the namb 
: 1098 7 namb Cnamb$l_fabdev] = .fabb Cfab$l_dev); 
: 190e a4 Set some flags based on the file name status bits from the RMS name 
: 1096 1183 namb Cnamb$v_wildcard) = .nam Cnam$v_wildcard); ! Inclusive OR of all the RMS wildcard bits 
: 1097 1186 namb [namb$v_wild_name = .nam nan$v_wild_naned; ! File name contains a wildcard 
; 1098 11 namb Lnamb$v_wild_type = .nam Lnam$v_wild_typeJ; ! File type contains a wildcard 
: 1099 1184 namb Lnamb$v_wild_version] = .nam Cnam$v_wild_verj; ! File version contains a wildcard 
; 1100 1185 namb [namb$v_wild_group = .nam Cnam$v_wild_grpJ; ! Group number is a wildcard 
3 113) 1186 namb Cnamb$v_wild_member] = .nam Cnam$v_wild_mbrJ; ! Member number is a wildcard 
; 1108 1188 namb ([namb$v_rooted directory] = .nam Cnam$v_root_dir]; ! Device contains root directory 
3 1109 1133 namb Cnamb$v_concealed_device] = .nam Cnam$v_cncl_devJ; ! Device is a concealed device 
5 1106 1191 namb (namb$v_explicit_nodeJ = .nam Cnam$v_node); ! Node name is present 
: 1107 1136 namb [namb$v_explicit_device] _= .nam (nam$v_exp_dev]; ! Device is explicit — 
: 1108 119 namb Rambow up} 1¢ 15. diregtoryds -nam (nam$v_exp_dirJ; ! Directory is explicit 
3; 1109 1194 namb [namb$v_explicit_name = .nam nam$v_exp_named; ' Name is explicit 
: 1110 1195 namb [namb$v_explicit_typeJ = .nam [nam$v_exp_typeJ; ! Type is explicit ; 
3 Wi 1138 namb [namb$v_explicit_version] = .nam C(nam$v_exp_verJ; ! Version number is explicit 
: 1118 1138 H RMS doesn't set the GRP_MBR bit if the device is not directory structured, do it for them 
: 1115 1200 2 IF .nam Cnam$b_dir) NEQ 0 
3: 1116 1201 THEN 
31117 1 4 nam Cnam$v_grp_mbr] = (CHSFIND_CH (.nam Cnam$b_dir], .nam Cnam$l_dir], %C °,*) NEQ 0); 
3 1118 120 Sdebug_pr int _ t30 ("grp_mbr bit_= !0L', .nam nanSv_grp mbrJ); 
: Bp ! 3 Me Cnamb$v_uic_directory] = .nam Cnam$v_grp_mbrJ) ! Directory is in CGROUP,MEMBER] format 
; 1131 1206 cmd_convert_uic (.fabb, .namb); ! Also store it in binary format 
; 1138 1208 : Make a copy of the input file name, copy from fab to a dynamic string 
: 1138 1210 $stat_str desc_init (tmp_desc, .fabb Cfab$b_fns], .fabb Cfab$l_fna]); ! Set class, type, length and pointe 
3 116 : 1} str$copy_dx (inp_desc, tmp_desc); ! Copy to dynamic string 
; 1138 : 18 } Make a copy of the expanded name, copy from nam to a dynamic string 
: 116 1215 2 $str_desc_set (tmp_desc, .nam Cnam$b_esl], .nam [nam$l_esa]); ' Set Length and pointer fields only 
; at} : 1 str$copy_dx (exp_désc, tmp_desc); ! Copy to dynamic string 
; 1 : : 3 Make a copy of the result name, copy from nam to a dynamic string 
: 1135 1220 $str_desc_set (tmp_desc, .nam Cnam$b_rsl], .nam Cnam$l_rsa)); ! Set length and pointer fields only | 
; 1136 : 1 str$copy_dx (res_deésc, tmp_desc); ! Copy to dynamic string 
: 1133 1 5 ! Make a copy of the final name. This is the result name if present, expanded if not. If the expanded cane | 
3 EY 4 ! : is not present, all bets are off. 
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3; 1141 1 § BEGIN 
: 1336 1 REGISTER 
3; 114 1 8 Final len. oes adr; 
> 1144 1 IF_.nam Cham$b_rsij GTRU 0 
3; 1145 1230 THEN 
; 1146 1231 BEGIN 
3; 1147 1 ¢ 4 final_len = .nam (nam$b_rsl]; | 
3; 1148 1 a final_adr = .nam [nam$l_rsaJ; 
3 1149 1234 4 END 
3; 1150 1235 ; ELSE IF .nam Cnam$b_esl] GTRU 0 
; 1151 1236 THEN 
: 1128 1237 4 OFGiN 
3; 115 1238 4 final_len = .nam nensb_es|]; 
: 1154 1239 4 final_adr = .nam [nam$l_esaJ; 
; 1155 1240 4 N 
; 1156 1241 3 
; are 4 : $5 ; Slogic_check (0, (false), 232); 
: +24 : te $str_desc_set (tmp_desc, .final_len, .final_adr); ! Set length and pointer fields only 
: 1393 1348 5 str$copy_dx (ful_desc, tmp_desc); ! Copy to dynamic string 
: 1168 1348 : Make a copy of the canonical device name, copy from nam to a dynamic string 
: 1165 1250 : BEGIN ! The DVI field is a counted spring, so we 
> 1166 1251 3 BIND ! must trick BLISS into vite he first 
3: 1167 \$3¢ 3 Len = nam Cnam$t_dvi] : BYTE, ! byte is the length field and the second 
: 1168 \$2 3 adr = nam Cnam$t_dvi] + 1 : $bvector; ! byte is the string itself 
; 1198 1$26 5 “ $str_desc_set (tmp_desc, .len, adr); ! Set Length and pointer fields only 
: 1171 1256 str$copy_dx (dvi_desc, tmp_desc); ! Copy to dynamic string 
H 1176 1257 
3 117 1258 ‘+ 
3 1174 1259 2 ! Now we need to get a Little smarter. The nam block contains lengths and addresses inside the expanded or 
3; 1175 1260 ! string for the rest of the filename components. Since we have made a copy of this string, we must convert 
3: 1176 1261 ! nam block addresses to addresses inside our copy. This is a simple matter of arithmetic. We must also 
3 ie 1506 initialize all these as static strings, so here we go: 
; 1179 1364 if nam Cnam$b_rsi] GTRU 0 ! Is the result string available? 
: bh 1608 - offset = .res_desc Cdsc$a_pointer] - .nam Cnam$l_rsa] ! Compute our offset 
; 1188 1508 offset = .exp_desc Cdsc$a_pointer] - .nam Cnam$l_esaJ; ! Compute our offset 
; 1183 1596 $stat_str_desc_init (nod_desc, .nam (nam$b_node], (.nam (nam$l_node] + .offset)); ' Node name descript 
3; 1186 1271 $stat_str_desc_init (dev_desc, .nam [nam$b_dev], (.nam [nam$l_dev] + .offset)); ' Device name descri 
3 1187 1 Ms $stat_str_desc_init (dir_desc, .nam [nam$b_dir (.nam (nam$l_dir]_ + .offset)); ' Directory name des 
3: 1188 127 $stat_str_desc_init (mam_desc, .nam nangb_nane], (.nam [nam$l_name) + .offset)); ! Name name descript 
: 1189 1274 $stat_str_desc_init (typ_desc, .nam nansp_tyog - (.nam [nam$l_type] + .offset)); ! Type name descript 
3 1109 ' o? $stat_str_desc_init (ver_desc, .nam [nam$b_ver], (.nam Cnam$l_ver] + .offset)); ! Version name descr 
; 1136 \ : Check now to make sure that we can use this as one of our foreign names, look first at the length 
i 1138 ' . iF -nam Cnam$b_type] GTRU 4 ! If the type is longer than three (includes the ‘*.'*) | 
; ies 1281 -nam Cnam$b_name] GTRU 9 ! or the name is longer than 9 
3; 119 1282 THEN 


oe namb$v_rt_fruncate] = true; 
SE IF .nam Cnam$b_name] GTRU 6 


ar : BYTE; 
char = CHSRCHAR_A (buf); 
«| alt char OF 


‘aA’ TO a ts ")* TO ae oer ver") : 


1) ed at oe 2 2 tt 


Be Se ee Ge Be Se Se Se ee Se BH Se Se Se Se Se Se Ge Ge we Se Ge Ge Se Se oe FHSS Se Ss Se Se S8 Se Sees SHS SEOs BH es SESS O6 es ee 
ce et ce cc ec ee ee ee 8 ed ad ed ed od dd od od 
cc DD ee we ee cD ce ee ee ee ee ee ee cD ee ee ee ee ee ee ee ed ee eed eed ed 
02.00 00 C0: 
DWONAUES WIN OS OO NAME WN OO DNAUE WN SO OONAVL EWN OOD ONOUSE 


OFFC 00000 .ENTRY CMD_NAMB_FAB_C 
5B 000000006 8F 00 0000 MOVL BA Ae R11 
SA atddittde 09 ited MOV STRSCOPY_Dx, R10 
SE C2 00010 SUBL2 #8, SP 


EXCHNG.SRCJEXCCMD.B32;1 
then we need to truncate DOS and RT output names 
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1198 1283 BEGIN 
1199 namb [namb$v_dos_ truncate] = true; 


3 , ; 

3 res OTHERWISE) : namb Cnamb$v_bad_pdp_char] = true; 
221 30 len = .len = 1; 
222 30 END; 
223 30 
224 30 len = .nam Cnam$b_name); ! Do the file name next 
225 31 buf = .nam Cnam$l_nameJ; 
$$$ 311 2 WHILE .len GTR 0 
227 31 ¢ dO 
228 3] BEGIN 
$§2 1 ; REGISTER 
230 $1 char : BYTE; 
231 1 ; char = CHSRCHAR_A (buf); 
$38 31 SELECTONE .char OF 
23 318 3 SET 
234 319 3 ca’ YO) *2*, "2? Teo", *e*, "F's 2 ; 
235 320 3 COTHERWISE) : namb Cnamb$v_bad_pdp_char] = true; 
236 32 ; es; 
237 32 len = .len = 1; 
238 3235 2 ND; 
239 324 2 : 
240 P 132 $debug_print_fao (°"!AS" "IAS" "YAS" "LAS' "LAS" “"LAS' “LAS, 
st! $5 nod_desc, dev_desc, dir_desc, nam_desc, typ_desc, ver_desc, dvi_desc); 
548 32 RETURN; 
244 329 1 END; 
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! If the name is longer than 6 we need to truncate RT 


00 

01 

4 EL 

0 8 THEN 

Se namb Cnamb$v_rt_truncate] = true; 

4 4 Now look for characters which cannot be put into the other file names 
$08 9 len = .nam nendp.typed - 1; ! Do the file type first, adjust for the ‘’."’ 
09 9 buf = .nam Lnam$l_type] + 1; 

0 9 WHILE .len GTR 0 

1 9 dO 

; .] BEGIN 

9 REGISTER 

214 9 ch 
215 0 
216 0 
217 0 
218 0 
219 0 
220 


~) 
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! Valid chars plus wildcards 


! Valid chars plus wildcards 
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02 A6 1 88 002A5 22%: B1SB #1, 2(R6) 
51 D7? O002A9 238: LEN 
D1 11 OO2AB BRB 20$ 
04 O02AD 24$: RET 
; Routine Size: 686 bytes, Routine Base: EXCHSCMD_CODE + 0768 
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exchscad parse fi lespec oreeo-19Re 99:30:03 LEXCHNG. SRCEXCCMD 832; age 435 
a 
e 


1 
1 
} GLOBAL ROUTINE exch$Scmd_parse_filespec (p 
r 


1330 ra_name : $ref_bblock ZSBTTL ‘exch$cmd porse.ttlespes : 
} 1 orem default_desc : $ref_Bblock, prsopt : $bblock, name_desc : $ref_bBlock, namb : Sref_b : 
eg | 
1335 @ j FUNCTIONAL DESCRIPTION: ; 
' ? This routine parses a file name parameter into its component parts. The output is a filled name blo ‘ 
: 4 ; INPUTS: : 
1341 i para_name = the descriptor for the name of the parameter to be given to CLISGET_VALUE ; 
1 rh} ' default_desc - a default name to supply fields missing in the above name. File name stickiness ‘ 
134 ! can be achieved by using a previously returned name as the new default. ‘ 
it ae: 2 } prsopt - flags for parse options : 
1346 i IMPLICIT INPUTS: ; 
1347 ! : 
1348 ' none 3 
1349 ! : 
1329 § OUTPUTS: ; 
1326 2 i name_desc = the address of a dynamic string descriptor, will receive the name from CLISGET_VALUE 3 
1327 2} namb - address of the created name block : 
1355 2 i IMPLICIT OUTPUTS: : 
1356 ! PF 
1357 ! none $ 
1358 ! 3 
$e 3 ROUTINE VALUE: : 
130) True if success, bad status code if unable to parse the parameter, zero if no more parameters : 
1368 3 i SIDE EFFECTS: ; 
1364 § ! : 
1365 ! none 3 
1366 !<= : 
1367 : 
1308 $dbgtrc_prefix ('cmd_parse_filespec> '); ; 
1370 2 LOCAL ; 
1371 a : $Sbblock Cfab$k_bln], ' FAB for the RMS parse : 
1376 nam : $Sbblock Cnam$k_blnJ, ! NAM for the RMS parse : 
137 ebuf : Sbblock Cnam$c_maxrss], ! Expanded name buffer for the RMS parse : 
1374 namb_ptr : Sref_bblock, ' Local pointer for the newly created block 3 
1375 cli_status, ' Status from CLISGET_VALUE : 
1376 prs_status, : 3 
1377 status, ! Status from other things : 
1378 dev_item : VECTOR (10, LONG], ' Item List for $GETDVI 3 
1379 dev_desc : $desc prone ' Name string for $GETDVI 

1380 devinam : $bvecfor (16), i Name buffer 

133) devnamlen : WORD ! Returned Length of name 

13 : ’ 

1384 BI ; 

: +H ! DVI name is counted string 


nam_dvilen = nam pranmst dvi 
= nam 


: BYTE, 
nam$t_dvij+1 : $bvector 


' Status from RMS parse 
nam_dvibuf 
| 
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v04-0 exch$cmd_parse_filespec -Sep- EXCHNG.SRCJEXCCMD.B32 (13) 

: 1303 1387 : 

; 1304 1 8 

3 : 05 } 2 Strace_print_lit ('entry'); 

: ; oF : 4! Set the returned name structure to the null pointer 

igh cin iss 

: 1311 1395 ! Get the string from the CLI. Note that we must get the parameter in this routine so that our later calls 

3 : \¢ : get the values of /RECORD_FORMAT and /VOLUME_FORMAT will get the correct placement (local). 

: 1314 1398 If _.prsopt Cprsopt$v_no_get_value] ! If the no_get_value option is requested, simply copy the 

3 1315 1399 THEN” ecpeler's “ ! input pafenctor pane’ te the output str ng PNote Chat wt 

; ; 18 e's ae ee (.name_desc, .para_name) ! ¢an not guarantee proper /RECORD and /VOLUME placement. 

; 1318 1408 BEGIN 

: 1333 \ehz 4 IF NOT (cli_status = cli$get_value (.para_name, .name_desc)) 

: 1321 1208 3 RETURN 0; 

TBE HBh gw: 

3 1324 1408 ! Initialize the structures needed by RMS PARSE routine 

; 1325 1409 : 

3: 1326 P 1410 S$fab_init ( 

3 lese P 1411 fab = fab, ! Input file FAB 

: 1328 P alg fna = .name_desc (Cdsc$a_pointer], ' Set name addr 

: 1329 P 141 fns = .mame_desc [Cdsc$w_length], ! Set name size 

3 1330 iei2 nam = nam); ! Name block 

: 1332 P1416 2 Snaminit ( 

3; 1333 P 1417 nam = nam ' File name block 

: 1334 P 1418 esa = ebuf, ! Expanded name buffer addr 

3 1335 1419 ess = nam$c_maxrss); ! Expanded name size 

; 1338 10st 3 1? nop = synchk); ! Syntax check only (needs some more work to use) 

: 1338 1356 : If a default name has been supplied, pass it on to the parse routine as the default 

3 1340 1424 2 IF .default_desc NEQ 0 

3; 1341 1425 THEN 

; 1366 1426 BEGIN 

: 134 1427 3 fab febsb_dns] = .default_desc pgsciu. length; 

3 1344 1428 3 fab Cfab$l_dna] = .default_desc dsc$a_pointerd; 

; ieez Fy ; END; 

: 1347 i 1 : Now Let RMS do the dirty work for us | 

; 1329 14 g $debug_print 4% ("fab before parse  — <<<<< KKK KEKE EEE E KEKE KEKE KEE KEKE KKK K KEKE KKK"); 

: 1350 14 Scheck-call TS, exch$dbg_fab_dump, fab); ' Dump the fab 

3; 1351 1435 prs_status = Sparse (FAB = fab); ! Parse the file spec 

; 1336 1& § exch$cmd_parse_null_file (fab); ! And perse the null 

: 132 14 $trace_print_lit (‘Tab after parse >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"); 

3: 1354 1438 $Scheck_call (4, exch$dbg_fab_dump, fab); ' Dump the fab . 

5 133? 1439 Scheck_call (4, exch$dbg_fab_name_print, fab); ! Print name block information 

3 ; 2$ be Scheck_call (4, exch$dbg_fab_dev_print, fab); ! Print device information 

: 1385 1246 ! If we don't have an expanded name we exit with the error | 

3; 1359 144 : 
} 
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IF .nam Cnam$b_esl] EQL 0 
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; 1 et 1445 
:1 6¢ 1446 RETURN .prs_status; 
4 64 124 
: 1365 1269 i If we got an RMS$_DNR (device not ready or not mounted) error, then the device exists. Get its real name 
3 : $8 1339 ee gut the real fame into the DVI field of the nam block. Also grab the device characteristics and stick 
e . e a . 
: 1368 145 : 
3; 1369 1283 IF .prs_status EQL rms$_dnr 
; 1370 1454 THEN 
; } r} 103? BEGIN 
: i 7s 1437 Initialize the device name descriptor from the result name 
5 1375 1459 Slogic_check (2, (.nam Cnam$b_dev] NEQ 0), 104); 
3 ; re He ¢ $stat_str_desc_init (dev.desc, .nam Cnam$b_dev], .nam Cnam$l_devJ); 
: 1378 146¢ ! Initialize the item list for the SGETDVI 
: 1380 1464 ZIF switch_variant GEQ 3 XTHEN devnamlen = 0; %FI ! Suppress uninit reference meetoue while debugging 
; 1381 1465 dev_item (0) = (dvi$_fulldevnam*16 OR 16); 1 Canonical device mame (Note: RMS uses FULLDEVNAM in parse 
: 1386 1466 dev_item (1) = devnam; ' Buffer for name 
; 138 1467 dev_item § = devnamlen; ' Returned Length 
3 1384 1468 dev_item = (dvi$_devchar*16 OR 4); ' Device characteristics 
; 1385 1469 dev_item (4) = fab Cfab$l_dev]; : Plop it right into the fab 
: 1386 1470 dev_item (5] = 0; ' Don't need returned length 
3 i T4 ior) dev_item (6) = 0; ! End of List 
; 1389 1478 3 : Get the device information 
: 139) 1022 4 iF NOT (status = $getdviw (efn=0, devnam=dev_desc, itmlst=dev_item)) 
; 1398 eee Sexch_signal_stop (exch$_accessfail, 1, dev_desc, .status); 
: ieee rt Copy the name to the nam block, it will look Like SPARSE put it there 
; 1397 1481 $logic_check (2, (.devnamlen LEQU nam$s_dvi-1), 105); 
; 1398 tt nam dvilen = .deynamlen - 1; ' Copy the Length to the counted string 
3 1399 148 CHSMOVE (.nam_dvilen, devnam, nam_dvibuf); ! And copy the bytes (minus the final ™:*') 
: 1400 re #3 $trace_print_fao (‘dnr, fetched device "!AF', .nam_dvilen, devnam); 
: 1401 1485 
1403 1489 — 
; a0 \ens Get a pointer to a name block 
; 1208 1o2 namb_ptr = exch$util_namb_allocate (); 
; rss 4 1438 : Now copy everything over to the name block and return the pointer 
; 1410 1494 cmd_namb_fab_copy (fab, .namb_ptr); 
: 141¢ P 1496 $trace_print_fao ('Namb for input ‘!AS", full "MAS", device ‘!AS', 
3 rth ye namb_ptr Cnamb$q_inputJ, namb_ptr Cnamb$q_fullname], namb_ptr Cnamb$q_device_dvi]); 
5 1415 1299 BEGIN ! scope ‘‘devdvidsc™ 
3 1416 1500 BIND 
| 
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1501 devdvidsc = namb_ptr Cnamb$q_device_dvi] : $desc_block; 
IF .devdvidsc Cdsc$w_length] GTR 0 
THEN 
BEGIN 
8 LOCAL 
devclass, 
° devtype; 
3 Init the item List for a $GETDVI to get the device class 
1 RIF switch variant GEQ 3 ZTHEN devclass = devtype = 0; %FI ! Suppress uninit reference message 
51 dev_item (0) = (dvi$_devclass*16 OR 4); sey Device class (a DCB xxx symbol) 
51 dev_item [1] = devclass; ! Buffer for value 
51 dev_item § = 0; ! Returned length not important 
51 dev_item = (dvi$_devtype*16 OR 4); ! Device type (a DT$_xxx symbol) 
51 dev_item (4) = devtype; 
1 dev_item (5] = 0; 
1 dev_item § = (dvi$_devchar*16 OR 4); ! Device characteristics 
ev_item = namb_ptr Cnamb$l_fabdev); ! Plop it right into the namb 
dev_item (8) = 0; 
dev_item (9) = 0; ! End of List 
Get the device information 


iF NOT (status = $getdviw (efn=0, devnam=namb_ptr Cnamb$q_device_dvil, itmlst=dev_item)) 


ee ec ee ee el ee ee a ee ee ee ee ee a ed ad 
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: Sexch_signal_stop (exch$_accessfail, 1, namb_ptr Cnamb$q_device_dviJ, .status); 
¢ namb_ptr frambsb_devc Lass =".devclass; ! Store the value info the namb 
3 namb_ptr Cnamb$b_devtype] = .devtype; ! Store the value into the namb 
; $trace_print_fao (‘class !UL, type !UL", .devclass, .devtype); 

3 END; ' scope "'devdvilen"’ 

3 : Grab volume and record format info. Note that we will get positional or local values for this parameter o 
3 if NOT (status = exch$cmd_fetch_rec_format (.namb_ptr)) 

4 BEGIN 

4 exch$util_namb_release (.namb_ptr); 

? RETURN .status; 

4 e 

2 By (status = exch$cmd_fetch_vol_format (.namb_ptr)) 

4 BEGIN 

4 exch$util_namb_release (.namb_ptr); 

4 RETURN .status; 

: END; 

; : Produce an ident string for the volume 

5 BEGIN 

55 LOCA 

5 dent : $bvector Cnamb$s_vol_ident); 

55 BIND 
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¥04-000 exch$cnd parse fi lespec 1o88b-198e 13:39:01 LEXCHNG’SRESERCCMD632- 2943 
474 dey = namb_ptr [namb$q_device] : $desc_block ! Device strin ; 
th? dvi = namb-ptr Erambsa-deviceodvia : $desc block; ! Canonical none : 
ais ! If the device name parsed by RMS is known to us (has been MOUNTed), then the final vol_ident is ; 
ois ; that device name. A reference to a previously mounted virtual device will succeed here. : 
480 CHSCOPY (.dev Cdsc$w_length], .dev Cdsc$a_pointer], 0, namb$s_vol_ident, ident); ! Make a zero-padded ; 
481 namb_ptr thenbSa_s328¢ velbs = exchout “Find mounted_volb (ident); ! Look at sounted ve : 
oes $trace_print_fao (‘first try, ident "!AF™, volb !XL',”.dev Cdsc$w_length, ident, .namb_ptr Cnamb$a_asso 5 
2 If we have been given an address, then the ident is the correct name as it stands ; 


IF gnamb_ptr Cnamb$a_assoc_volb] NEQ 0 
BEGIN 
Copy the namb ident to the volume ident field 
CHSMOVE (namb$s_vol_ident, ident, namb_ptr Cnamb$t_vol_identJ); 
namb_ptr Cnamb$T_vol_ident_len] = .dev Cdsc$w_lengthJ; 
status = 1; 
END 
The device isn't mounted, did RMS find an unconcealed canonical device name for a non-virtual mount? 


The virtual device parse option is only used when a virtual device is first mounted. It is used to 
prevent the virtual device ‘'R:"’ from being interpreted as ‘'_RTAO:"', and ‘'DM:'’ from mornrng into **_DMAO 
e 
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H No canonical name, is there any device name at all? 
ELSE IF .dev Cdsc$w_length) NEQ 0 

THEN 

BEGIN 

: Copy the parsed device name to the ident field 


mn subsequent references to the virtual device we will get a match from the scan for mounted volumes, 
and will not have to treat virtual device names as being special. 
aoe ELSE hates Cdsc$w_length] NEQ 0) AND (NOT .namb_ptr Cnamb$v_concealed_device])) 
506 (NOT .prsopt Cprsopt$v_virtual_device])) 
307 THEN saphcep dD serch tesa pas bitinn s 
508 BEGIN 
509 BIND 
19 last = (.dvi Cdsc$w_length] + namb_ptr Cnamb$t_vol_ident]) : BYTE; 
\¢ Copy the canonical device name to the ident field, adding a colon 
% CHSMOVE. (dvi Cdsc$w_length], .dvi Cdsc$a_pointer)], namb_ptr Cnamb$t_vol_ident)); 
ast = 3% 
: . Rend ptr Cnamb$l_vol_ident_len] = .dvi Cdsc$w_length] + 1; 
status = 1; 
: $trace_print_fao ("canonical name, ident ‘!AF'’*, .namb_ptr Cnamb$l_vol_ident_len], namb_ptr Cnamb$t_ 
0. END 
0 
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CHSMOVE (.dev Cdsc$w_length], .dev [dsc$a_pointer), namb_ptr [namb$t_vol_ident)); 
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4 neat ptr ‘ee vol_ident_len] = .dev Cdsc$w_lengthi; 
Reread print. fao ("parsed device name, ident ‘"!AF'*, .namb_ptr Cnamb$l_vol_ident_len], namb_ptr [Cnam 
END 
} Wow = nothing at all 


i—] 


thei"? ptr Cnamb$a_assoc_volb] EQL 0 


amb_ptr Cnamb$a_ assoc_volb] = exch$util find mounted -polb (namb_ptr Coanpse.. vol_ident]); 


Strace _print_fao (‘second Check for volb, !XC', .mamb_ptr Cnamb$a_assoc_volb 
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Let the user know if we are ignoring pieces of the file name 
iF nam. ptr Cnamb$a_assoc_volb] NEQ 0 
sia 
volb = namb_ptr Cnamb$a_assoc_volb] : $ref_bblock; 
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: RT-11 files have neither version numbers or directories 
iF vou Cvolb$b_vol_format] EQL volb$k_vfmt_rt11 


AAD 


BEGIN 
A a ptr Cnamb$v_explicit_directory] 


WAVIVMIVIUT 


Sexch_signal (exch$_ignore_dire); 
IF .namb_ptr Cnamb$v_explicit _version] 


N 
Sexch Signal (exch$_ignore_vers); 


DOS-11 files do not have version numbers 
IF ,volb Cvolb$b_vol_format] EQL volb$k_vfmt_dos11 
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w 


BEGIN 
so ptr Cnamb$v_explicit_version] 
en signal (exch$_ignore_vers); 
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! If we have more files then set the more files flag 


ss 


PANAS Sz NSARANASSSIEAF 


if .cli Status EQL cli$_comma ' Separated by a comma 
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4 
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4 
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4 
4 
4 
status = 0; 
END; 
If we don't have a mounted volb address, then try again to see if our final ident is mounted 
4 
4 
4 
4 
4 
4 
: 
4 
4 
4 
te 
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"ti Status EQL cli$_concat ! Or by a plus sign 
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04-000 oxchscad parse fi lespes 1e=geen 188s 99:35:8) | Het chnc SAESexe cha O39¢4 9435 
} Hey } if namb_ptr Cnamb$v_more_files] = true; 
1590 P 1674 $trace_print_fao (‘id “!AF’’ volb !XL parse !XL ‘"!AS'’ "IAS" ‘"!aS"' min,» “ae” “Ar, 
1591 P 1675 -namb_ptr namb$l “VOL. ident_lenJ, namb sete Cnamb$t_vol_ident 
1 3 P 1626 -namb_ptr_Cnamb$a_assoc_vol6J, .pr 
159 P 167 namb_ptr Cnamb$q_no ede namb_ptr frenbéa. device, namb_ptr (Cnamb$q_directory], 
1238 1978 namb_ptr Cnamb$q_name namb_ptr Cnamb$q_type namb_ptr Cnamb$q_ version); 
15 1680 ! Return the pointer and the result status 
1899 16a) 3 i 
1598 16 ¢ ~namb = .namb ptr; 
1599 16 RETURN .Status; 
1600 1684 
INFO#250 21481 
Perersnged LOCAL symbol DEVNAM EN is probably not initialized 
rereetene LOCAL symbol DEVE ASS is probably not initialized 
Referenced LOCAL symbol DEVTYPE is probably not initialized 
EXTRN SYSSPARSE, SYSSGETDVIW 
EXTRN EXCH$_ACCESSFAIL 
EXTRN EXCHS$_IGNORE_ DIRE 
EXTRN EXCH$ JGNORE “VERS 
EXTRN CLIS_COMMA, CLIS_CONCAT 
OFFC 00000 ENTRY EXCHSCMD ~PARsE FILESPEC, Save R2,R3,R4,R5,- ; 1330 
R6,R7,R8 R10,R11 5 
SE FD80 CE 9E 00002 MOVAB -640(SP); Ree F 
14 BC 04 00007 CLRL @NAMB 3 1393 
56 10 AC DO QOOOA MOVL NAME_DESC, R6 : 1400 
OE Oc AC 01 €1 90005 BBC #1, PRSOPT, 1$ : 1398 
04 AC DD 0001 PUSHL PARA_ E : 1400 
56 DD 00016 PUSHL R6 3 
000000006 00 9 FB 00018 CALLS #2, STRSCOPY_DX : 
15 11 QOOTF BRB + $ 
56 DD B55 1 18: PUSHL : 1403 
04 AC ODD 00023 PUSHL 3 
000000006 00 O¢ FB B05 6 CALLS We “eticer VALUE 3 
6 50 DO 00020 MOVL RO TATUS 3 
0 6f 8 000 BLBS she STATUS. 3 : 
028 1 $8 BRW 3 
0050 =s« BF 00 6E . oS C B} : 2$: MOVCS isp), #0, #80, SRMS_PTR > 1414 
BO AD 5003 of 8 S fF MOVW aan SRMS_PTR 3 
C6 AD § 45 MOVB ; , $RMS pints : 
CF AD 02 9 049 MOVB #2, SRMS-PTR+ 3 
D8 AD FF50 Cd 9 8 4 MOVAB NAM, SRMS_PTR+40 : 
DC AD 04 Ab p 2 MOVL 4(R6), SRAS_PTR+44 ; 
E4 AD 8 0 MOVB (R6), S$RMS_PTR+5 ; 
0060 8F 00 6E ie 0 2c 26 MOVCS #0, (SP), #O, #96, SRMS_PTR > 1419 
FF50 cD 600 BF 0 66 MOVW ° 4578, Sams. PTR 5 
FFSA CD 1 BE $8 MNEGB SRMS_PTRT10 ‘ 
FFSC §6CD 00D0 CE 9E MOV EBUF. SAAS. PTR+12 ; 


Sete Se Seeses PHS 4e Se Seas es 


EXCHSCMD Command parsing utility routines 16-Sep-19 7:5 AX-11 Bliss-32 V4.0-74 
v04-000 exchecad parse fi lespes 14- mo a 1384 90: 36; af EXCHNG.SRCJEXCCMD.B32; 
50 08 AC D 79 MOVL FAULT_DESC, RO 
09 1 ig BEQL BF 
ES AD 60 90 0007F OV (RO), FAB+53 
£0 AD 04 AO p 0 3 MOVL £tRb5, Ppaaea8 
BO AD 9F 8 3$: PUSHAB FAB 
000000006 99 QI FB CALLS #1, SYSS$PARSE 
0D 9 OVL RO, PRS_STATUS 
BO AD 9F 0009 PUSHAB HA 
0000v CF 01 FB 00098 CALLS #1, EXCHSCMD_PARSE_NULL_FILE 
FF5B «CD «95 0009D TSTB NAM 1 
04 12 000A1 BNEQ $ 
50 2 pO OAS MOVL PRS_STATUS, RO 
00018272 BF 52 D1 SOAP 4$ CMPL = PRS_STATUS, #98930 
03 13 OOOAE BEQL 6 5$ 
OOAS5 3) 99080 BRW 9$ 
89 AD 95 9008 5$ TSTB = NAM+57 
13 12 0086 BNEQ 
7E 68 8F 9A 0008 MOVZBL #104, =(SP) 
01 DD 000BC PUSHL #1 
000000006 8F DD OO0BE PUSHL #EXCHS BA BADLOGIC 
000000006 00 03 FB 00C4 CALLS $STOP 
OOA2 CE 010E 8F 80 000CB 6$ OVW #2 3h DESC+ 
OOAO «CE 89 AD 9B 90008 MOVZBW NAM#+37, DES 
00AS CE 94 AD DO 0000 OVL NAMs68 (+4 
OOA8 CE 00E80010 8F 00 O00DE MOVL #132 tsp soEV Item 
OOAC CE 0090 CE 9E O00E MOVAB DEVNAM, DEV_ITEM 
0080 CE 04 AE 9E OOODEE MOVAB DEVNAMLEN, BEV Temes 
00B4 CE 00020004 8F DO O00F4 MOVL #131076, DEV_ITEM+12 
00B8 CE AD 9E O00FD MOVAB FAB+64 DEV EM+ 
00BC CE 7C 00103 CLRQ  —dDEV_ITEM+ 
— 7C€ 00107 CLRQ = = (SP) 
7E 7C€ 00109 CLRQ = = (SP) 
0088 CE 9F 0010B PUSHAB DEV_ITEM 
00B4 CE 9F 0010F PUSHAB DEV DESC 
7E 7C 00113 CLROQ (S 
000000006 00 08 FB 00115 CALLS #8, SYSSGETDVIW 
5B 50 pO 0011C¢ MOVL RO, STATUS 
09 5B EB OO11F LBS = STATUS, R 
58 DD 01 2 PUSHL STATUS 
O0A4 ce 9F 00124 PUSHAB DEV_DESC 
009E 31 01 8 BRW 1 
OF 04 Ar B1 00128 7$ CMPW DEVNAMLEN, #15 
13 (1B 901 F BLEQU 
7E 69 8F 9A 00131 MOVZBL #105, -(SP) 
1 DD 001 3 PUSHL # 
000000006 8F oD 001 PUSHL HEXCHS BADLOGIC 
000000006 00 03 ce 1 D CALLS #3, LIBSST 
FF64 CD 04 =A 01 83 00144 8s: § #1, DEVNAMLEN, NAM_DVILEN 
FF 64 cp 9A 0014 MOVZBL NAM_DVILEN, 
FF65 CD 0090 «CE 0 28 91 MOVC RO, DEVNAM, NAM_DVIBUF 
000000006 EF 90 FB 158 9$ CALLS EXCHSUTIL_NAMB_ALLOCATE 
6 0 00 0015F MOVL RO, NAMB TR 
56 bb 162 PUSHL NARB_P 
BO AD 9F 00164 PUSHAB 
FBE6 cf 02 FB 0167 CALLS Ree CMD_NAMB_FAB_COPY 
A 30 Ab YE 0016C MOVAB (NAMB-PTR) > R10 
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EXCHSCMD Command parsing utility routines 1b-$2 =-1984 7:5 AX-11 Bliss-32 V4.0-742 Page 5 | 
v04-000 exchscad parse fi lespec 122808=1 38 9 35304 EXCHNG.SRCJEXCCMD.B32;1 a 
11 13 00250 BEQL. 19 : 
008A C6 0% 87 67 ‘8 ef moves (RP), a4(R7) __13B(NAMB_PTR) : 1614. 
0086 £6 7 ¢ 66 17$: MOVZWL (R7), 134(NAMB_PTR) > 1615 
B 1 0 68 18$: MOVL #1, STATUS + 1616 
2 11 $ BRB 20$ + 1608 
B D4 19$: CLRL ‘STATUS + 1624 
69 D3 O272 20$:  TSTL (R9) + 1629 
10 1 0 74 BNEG els ; 
008A C6 9F 00276 PUSHAB 138(NAMB_PTR) + 1631 
00000000G_ EF 9 FB O027A CALLS #1, EXCHSUTIL_F IND_MOUNTED_VOLB 3 
69 0 DdO 00281 MOVL RO, (RO) : 
44 13 00284 BEQL 24$ + 1636 
52 69 DO 00286 21$:  MOVL (RO), R2 + 1644 
0 58 Ag 91 00289 CMPB BB(R2), a? F 
23 12 0028D BNEQ 23$ ; 
0D 6D Ad ES 0028F BLBC 109(NAMB_PTR), 22$ + 1647 
000000006 8F DD 00293 PUSHL #EXCH$_IGNORE DIRE > 1649 
000000006 00 01 FB 00 99 CALLS #1, LIBSSIGNAC : 
0D 6D Ab 03 £1 002A0 22$: BBC #3. 109(NAMB PTR), 23$ + 1650 
000000006 8F DD 002A5 PUSHL #EXCH$_IGNORE_VERS + 1652 
000000006 00 01 FB OO2AB CALLS #1, L168 1GNAL : 
01 58 A2 91 002B2 23$:  CMPB 8(R2), #1 : 1657 
12 12 00286 BNEQ  24$ : 
0D 6D Ab 03 €1 00388 BBC a3, 109 (NAMB PTR), 24$ + 1660 
000000006 8F DD 00280 PUSHL #EXCHS$_IGNORE VERS + 1662 
000000006 00 01 FB b03¢3 CALLS #1, LIBSSIGNA : 
000000006 8F 6— 01 O3CA 24$ CMPL cLi_STATUS, #CLIS_COMMA t 1668 
09 13 00201 BEQL ©. 25$ ; 
000000006 8F 6E D1 00203 CMPL  CLI_STATUS, #CLIS$_CONCAT + 1670 
05 12 OO2DA BNEQ  26$ : 
6D Ab 80 8F 88 002DC 25$: BISB2 #128, 109(NAMB PTR) : 1672 
4 eC 56 D0 O02E 26$:  MOVL NAMB PTR, @N + 1682 
50 5B DO 00265 27$:  MOVL  STATOS, RO : 1683 
04 00268 RET : 
50 04 002E9 28$:  CLRL RO + 1684 
04 002EB RET ; 
; Routine Size: 748 bytes, Routine Base: EXCHSCMD_CODE + 0A16 


— 
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EXCHSCMD Command parsing utility routines 16-Sep-1984 00:37:5 AX-11 Bliss-32 V4.0-74 Page 56 
v04-000 exchscad parse null_ftite 1e-Sep- 38 99 :39:0 LEXCHNG. SROTEXCCMD 832; : olf | 
3 160¢ 198 1 GLOBAL ROUTINE exch$cmd_parse_null_file (infab : $ref_bblock) : NOVALUE = ZSBITL ‘exch$cmd_parse_null_ : 
; 160 16 BEGIN 3 
; 1604 198 144 : 
; 1605 1688 ' ; 
; 1908 1988 } FUNCTIONAL DESCRIPTION: : 
3; 1608 1691 ' This routine makes a copy of the input fab (and nam block, if present). ALL name fields are set to : 
; 19 1036 zero, and a Sparse is done. This cav@#s RMS to deassign all context for the fab. ; 
3; 1611 1694 ' INPUTS: H 
3 1916 1695 ! ; 
; 161 1098 : infab - address of fab ; 
3; 1614 169 ' ; 
; 1615 1698 ! IMPLICIT INPUTS: 3 
> 1616 1699 ' 3 
: 1617 1700 } none 3 
; 1618 1701 ! 3 
3; 1619 A ! OUTPUTS: $ 
3; 1620 170 ! $ 
3; 1621 1704 ! none 5 
3 \oc¢ 1705 : $ 
3: 162 1706 ' IMPLICIT OUTPUTS: : 
: 1624 1707 2! : 
3 1625 1708 2! none : 
> 1626 1709 2! : 
3: 1627 1710 2 ! ROUTINE VALUE: : 
> 1628 1711 2! $ 
> 1629 ar e! none : 
: 1630 1715 2! 3 
; 1631 1714 2 ! SIDE EFFECTS: ; 
3 1636 1715 2! 3 
3; 163 1716 2! RMS internal context released ‘ 
3 1634 1717 2 !-- 3 
3; 1635 1718 2 3 
3; 1636 1719 2 $dbgtrc_prefix (‘cmd_parse_null_file> '); : 
: 1637 1720 2 : 
3; 1638 1721 2 LOCAL ; 
; 1639 1722 2 fab : $Sbblock Cfab$k_bin], ! FAB for the RMS parse : 
: 1640 1723 2 nam : $bblock Cnam$k_bln] ! NAM for the file name : 
3 1641 1724 § 3 ; 
3 Hb 4 1725 : 
3; 164 1726 § : : 
3 My a Viet Copy the input fab to the local and zero the file name Lengths : 
3 1646 1798 CHSMOVE (fab$k_bln, .infab, fab); ' fopy to local : 
3 1647 1730 fab [fab$b_fns] = 6; ' File name size to zero : 
; 1648 1731 fab Cfab$b_dns] = 0; ! Default name size to zero : 
3 1649 17 ¢ : 
3; 1650 17 } : 
: 168) 17 7 : If a nam block is present on the input, set up a local nam block : 
3 1683 1736 IF .fab Cfab$l_nam] NEQ 0 : 
3: 1654 17 THEN : 
3; 1655 1738 BEGIN 
; 1656 1739 CHSMOVE (nam$k_bin, .fab Cfab$l_nam], nam); ! Copy the old nam block | 
: 1657 1740 nam (nam$v_svctx] = 0; ' Clear the save context bit 
3; 1658 1741 nam [nam$v_synchk] = 1; ' Syntax check only 


15 
EXCHSCMD Command parsin mite routines 1b. -Sep- 
v04-000 exchscad perse null tile 14- =Sep- 
3; 1659 174 nam we esl] = 0; 
; 1660 174 nam [nam$b_ess] = 0; 
3; 1661 1744 nam [nam$b_rslJj = 0; 
s 1996 1745 nam [nam$b_rss] = 0; ! 
3: 166 108 nam Cnam$l-rlf] = 0; ! 
3: 1664 174 fab Cfab$l=nam] = nam; | 
3; 1665 1748 END; 
> 1666 1749 
3 1667 1750 ! 
3; 1668 173) ' Now do the dummy parse 
3: 1669 17 ¢ { 
: 1670 172 Sparse (FAB = fab); ! 
: 1671 1754 
i 167¢ 1755 95 RETURN: 
3: 167 1756 1€E 
003C 00000 
5E FF5O §=6CE 43 467 
60 AE 04 «BC 0050 8F 28 0000 
E4 AD B4 Q000F 
D8 AD o poets 
1D 13 0001 
6E D8 BD 0060 = 8F ss 00017 
33. AE 80 8F BA ehh 
08 AE 08 88 Boos 
OA AE B84 00027 
02 AE B4 0002A 
10 AE 04 att 
D8 AD 6E 9E 000350 
60 AE 9F 00034 1$: 
00000000G 00 01 FB 00037 
04 0003E 


: Routine Size: 63 bytes, Routine Base: EXCHSCMD_CODE + 0D02 


1982 93:35:09 — YeXchne Sredexecmo.o32¢ 
! No expanded strin 


' No expanded s ring buffer 
' No result strin 


=r 


No result string buffer 
No related file na 


m 
! Point the fab at this one 


Parse the null name 


EXCHSCMD_PARSE_NULL_FILE, Save R2,R3,R4,R5 
-176(SP)> SP 
#80, Sr NEAS. FAB 
AB+52 
ABs 40 


#96, @FAB+40, NAM 
- NAM+51 


#1, SYSSPARSE 


Page 57 
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EXCHSCMD Command parsing utility routines 16-Sep-1984 00:37:50 AX-11 Bliss-32 V4.0-742 Page 58 
70s-000 exchscad related file. fixup (nem) 1er8ee= 138s 99:35:89 HEXChnc SeSexecho 03574 9°45) 
; 1675 1757 1 GLOBAL ROUTINE exch$cmd_related_file_fixup (nam : Sref_bblock) : NOVALUE = ZSBTTL ‘exch$cmd_related_fil 
: 1676 i? 8 BEGIN 
: 1677 17 !+4 
: 1678 1760 : 
; 19? 170) FUNCTIONAL DESCRIPTION: 
3; 1681 1588 ' This routine is called when exch$cmd_related_file_parse finds that the related file name is a quoted 
3 1086 1764 : file spec (NAMSV_QUOTED set). It attempts to determine if the filename is from an RT-11 magtape, in 
3; 168 1765 ! which case it converts the quoted file spec into a normal file spec by removing the quotes and embed 
; bet: 1796 spaces. If the quoted name is not an RT-11 filespec, no action is taken. 
3 1686 1708 : INPUTS: 
; io 1770 nam - address of an RMS NAM block containing the quoted file name in the expanded string buffer 
; 1690 1rre ! IMPLICIT INPUTS: 
; 1691 177 : 
3 1996 1774 : none 
3; 169 1775 : 
3 1694 1776 ! QUTPUTS: 
: 1695 1777 } . ? 
3; 1696 1778 ‘ nam - expanded a is modified in place, NAM$B_ESL is adjusted for the new length. Other nam fie 
: 1697 1779 : are not corrected 
: 1698 1780 ! 
3; 1699 1781 ! JMPLICIT OUTPUTS: 
: 1700 1786 } 
: 1701 178 } none 
3 1708 1784 } 
3; 170 1785 ! ROUTINE VALUE: 
3 1704 1786 : 
; 1705 1787 ‘ none 
: 1706 1788 ' 
3: 1707 1789 ! SIDE EFFECTS: 
; 1708 1790 : 
; 1709 1791 : none 
3 1710 1736 !<= 
; 1711 179 
3 ie 1794 $dbgtrc_prefix ('cmd_related_file_fixup> '); 
3: 171 1795 
3: 1714 1796 LOCAL 
3; 1715 1797 L 
3: 1716 1798 skipped, ' Count of characters skipped 
3; 1717 1799 ip : $ref_bvector, ! Input pointer to name 
: 1718 1800 op : $ref_bvector, 
3 1719 1801 dots 
re on 
: 1722 P 1804 $trace_print_fao ("expanded ‘"!AF*', quoted name {!AF}, type C!AF}, ver {!AF}' 
3: 1723 P 1805 nam Cnam$b_eslJ, .nam Cnam$(_esaJ, .nam Cnam$b_namei, .nam Cnam$l_name] 
: Het 1308 -nam Cnam$b_typed, .nam Cnam$l_type]. .nam CnamSb_verd, .nam Cnam$l_verJ); 
; 1726 1808 ! Get Length and address of the file NAME, without the quotes 
: 1728 1810 2 il = .nam Cnam$b_name) - 2; 
3: 1729 1811 IF .il LEQ 0 
3; 1730 1 ¢ THEN 
3 17351 181 RETURN; ! Can't be RT-11 if it is zero length 
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Command parsing usitity routines 1$-$en-1964 90:32:39 AX-11 Bliss-32 V4.0=74 Page 9 


We can only have zero or one periods in the name 
if .dots GTRU 1 


exch$cmd_related_file_fixup (nam) EXCHNG.SRCJEXCCMD.B32 (15) 
8 IF _.nam Cnam$b_type] NEQ 1 ! Type field should also be Length of one 
1$ RETURN: 

1 op = .nam tnam$l_named; 

ig ip = .op + 1; 
8 y Check that the name contains the proper set of characters 
H § dots = 0; ! Assume no periods in the name 

; INCR p FROM 0 TO .il=1 

5 SELECTONE -ip C.p) OF 
8 = im. bi ee ee ek i eee 2 ' Alphanumerics and spaces are ok 
828 fe Be dots = .dots + 1; ' Count the period 
. 2 OTHERWISE) : RETURN; ' Can't be RT-11 file name 
831 
S36 
83 
ate 

35 
836 
837 
838 
839 


ee ee ed ae ed ed = ed dd dd Wd 3 2 dd 


RETURN; 

: Shuffle the name, skipping any spaces 
840 skipped = 3; ! Init to the two quotes being skipped plus type 
B61 3 Inck*p FROM'O to .il=1 " alcatel 
He BEGIN 
844 REGISTER 
845 ; char; 
846 char = CHSRCHAR_A (ip); ' Grab the character 
847 3 IF .char EQL * * 
848 3 THEN 
tH 3 skipped = .skipped + 1 ! Bump count if space 
a2! : - CHSWCHAR_A (.char, op); ! Otherwise copy to output 
638 $ nam eek esis = .nam Cnam$b_esl] - .skipped; ! Store the new length 
$2? : Now slide the remaining field (VERSION) over 
$22 CHSMOVE (.nam Cnam$b_ver], .nam Cnam$l_ver], .op);: 
Hs $trace_print_fao (‘modified name “"!AF'’*, .nam Cnam$b_esl], .nam Cnam$l_esa]); 
861 RETURN; 
862 END; 


007C 00000 ~-ENTRY EXCHSCMD_RELATED_FILE_FIXUP, Save R2,R3,R4,-; 1757 


oR 
53 04 aC 00 00002 MOVL NAM, R3 ; 1810 
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63 1 GLOBAL ROUTINE exch$cmd_related_file parse (fil_len, fil buf : $ref_bvector, ZSBTTL ‘exch$cmd_related_fil 
BEGIN rlf_Ten, rlf_buf : Sref_Bvector, nam : S$ref_bblock) = 
le 


FUNCTIONAL DESCRIPTION: 


This routine produces a fil 
requested name (fil_len:fil 
a block which is an RMS NAM 
(size NAMSC_MAXRSS). 


INPUTS: 


for an output file by doing an RMS file parse to combine the 
with the related name (rif_len:rlf_buf). The output is placed in 
(size NAMSC_BLN) immediately followed by the expanded string buffe 


Length of the requested name, possibly containing wildcards 
address o 

Length of the related file name 

address of 


7s 
on te te 
Yr 
-o- 
ec®e 
3-05 
eeee 


IMPLICIT INPUTS: 
none 
OUTPUTS: 


09 09 09 09 09 09 C9 09 09 08 SI NI NII NIN NOAA A OO 
ODONAVE WO ODNAOV EW OVOONAUS 


nam - address of an RMS NAM block and expanded string buffer 


ee ee ee ee ee eee SS 


none 
ROUTINE VALUE: 
True if success, bad status code if unable to perform the operaticn 
Sdbgtrc_prefix (‘cmd_related_file_parse> ‘); 


890 IMPLICIT OUTPUTS: 

891 

$44 

89 

894 

895 

896 

897 

898 SIDE EFFECTS: 

899 

900 none 

901 - 

90 

90 

904 

905 LOCAL 

206 fab : $Sbblock Cfab$k_bln], ! FAB for the RMS parse. 

90 rlf_nam : $Sbblock Lnam$k_binJ, ! NAM for the related file name 
908 rbuT : Sbblock Cnam$c_maxrss], ' Buffer for the related file name 
308 status ' Status from the Sparse 

911 : 

aig $trace_print_fao ("input name ‘‘!AF'’, related name "!AF’", .fil_len, .fil_buf, .rlf_len, .rlf_buf); 
aie : Perform a SPARSE to create an RMS nam block for the related file name 

318 $fab_init ( 

91 fab = fab ' Input file FAB 

4 fna = .rlf_buf, : Set related name addr 

91 fns = .rlf_len, ! Set related name size 


De Se Se Se Be Se Se Be Se Se Se Fe Gee SH Se Se Se ae Se Se Ge Se Ge SH Se Se Ge Se Se Se Se Se Se Ge ae Se Se Se Se Se Se Se ae Se Se Se ee Sees Se Sess se Se Seas 
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¥0%~000 exc Send related. ile.parse 132808- 138s 99330509 EXCHNG. SRC IEXCCMD.B32; . (16) 
39 nam = rlf_nam); ! Name block 
0 P Snam_init ( 
S nam = rlf_nam, ' File name block 
a esa = rbuf, ! Result name buffer addr 
P ess = nam$c_maxrss, ' Result name buffer size 
nop = synchk); ! Syntax check only 


Parse the input related file name into the nam block 


$debug_pr int ‘* ("fab before related geree CUMPUT) —§_ «KKK EEE EE EEE KEE hhh E EEE Eh KEKE KEKE KKK") 
$Scheck_call %5, exch$dbg_fab_dump, fab); ' Dump the fab 
status = Sparse (FAB ; ! Parse the related nam 


a a e . e 
scebup.pr int _" (‘fab after related pores (input) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"); 


ROR ANAM RA Ree eee ed 
WN SO OONOULWN “CO OONOUS Wh — 


, 7 1 : 
3; 3 1 : 
3 3 1 ; 
5 Y 1 H 
3% 1 : 
3% 1 : 
3 3 1 : 
; 3 1 : 
3 3 1 ; 
BY 1 : 
3 3 1 : 
z 
3 1 1 $Scheck_call 75, gxchSdbg fab_dump, fa ump the fa ; 
3:1 1 F .rlf_nam Cnam$b_esl) Ear 0 ! It shouldn't be possible to get this serious an error sinc . 
3 7 1 N ! related file name has already been through a Sparse : 
3 ; : Sexch_signal_stop (.status); ‘ 
: : } 3 If the related name is a quoted string, see if it could be a quoted RT-11 magtape file name : 
3 : : : IF .rlf_nam Cnam$v_quoted] ‘ 
; ; : : exch$cmd_related_file_fixup (rlf_nam); : 
: Lh 8 : : : Move the final related file name from the expanded string to the result string area of the related nam blo : 
>; 1865 194 rlf_nam Cnam$b_rsl] = .rlf_nam Cnam$b_esl]; ' Result name Length : 
>; 1866 194 rlf_nam Cnam$l rsa] = .rlf_nam Cnam$l_esal; ! Result name Length : 
: +14 or $trace_print_fao (‘related name after first parse "!AF'"', .rlf nam Cnam$b_rsl], .rlf_nam Cnam$l_rsa]); : 
; 1399 192 } Initialize the structures needed by RMS SPARSE routine : 
3; 1871 P 195 $fab_init ( ; 
3 1876 P 195 fab = fab ' Input file FAB . : 
; 187 P 195 dna = UPLIT BYTE (';*"), ! Default is version so that we can maximize : 
; 1874 P 1955 dns = ! Default name size is two : 
3: 1875 P 1956 fna = .fil_buf, i Set name addr ; 
; 1876 P 1957 fns = .fil_len, ! Set name size ° 
: 187 P 1958 fop = <OFPS, ' Qutput file parse 3 
; 1878 1959 nam = .nam); ! Name block : 
; 1879 1960 : 
; 1880 P 1961 S$nam_init ( : 
; 1881 P 1306 nam = .nam, ! File name block F 
3 1886 P 196 esa = .nam+nam$c_bin, ! Expanded name buffer addr : 
3 7 P 1964 ess = nam$c_maxrss, ! Expanded name size : 
3; 1884 P 1965 rlf = rl finan, ' Related name : 
; Hy 130 nop = synchk); ! Syntax check only : 
3 1387 1308 : Now let RMS do the dirty work for us : 
; 1889 1996 $trace_print_lit ("fab before related perse KEKKK KKK KEKE EEK KEKE KEKE KEKE KEKE EEE K KEE K KKK KKK KKK"); 3 
3; 1890 1971 $check_call 4, exch$dbg_fab_dump, fab); ! Dump the fab : 
3: 1891 197 tatus = Sparse (FAB = fab); ! Parse the file spec : 
3 1 35 197 trace_print_lit (‘fab after related porte >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"); 3 
: 189 1908 Scheck_call 4, exch$dbg. fab_durp, fab); ' Dump the fa ; 3 
$ Hd 13o2 Scheck_call (5, exch$dbg_fab_name_print, fab); ! Print name block information : 


EXCHSCMD Command parsin ility routines Sep-1984 00: 
v04 exchscad related. file “parse 16- Sen-1984 99:3 


7:50 
9:01 


AX-11 Bli 


$$ -32 V4.0-742 
EXCHNG. SROI EXC 


CMD.B32;1 


: } 138 H If we don't have an expanded name we exit with the error 
: 189 197 iF _.nam Cnam$b_esl] EQL 0 
3 1899 1980 
3; 1900 138) RETURN .status; 
: 1901 19 § 
; 1306 1387 $trace_print_fao (‘final result name ""!AF''’, .nam Cnam$b_esl], .nam Cnam$l_esaJ); 
: 1904 1985 RETURN true; 
3; 1905 1986 1 END; 
-PSECT EXCHSCMD_PLIT,NOWRT,2 
2A 38 OO1E4 P.ABQ: .ASCII \3*\ 
-PSECT EXCHSCMD_CODE ,NOWRT,2 
01FC 00000 ENTRY EACH CAD RELATED_FILE_PARSE, Save R2,R3,R4,-; 
58 00000000G 00 9E shied MOVAB SYSS$PARSE, R8 
E50 CE 9E 00009 OVAB -432(SP), 
0050 =«s« BF 00 6E - a 2c Be OgE MOVCS #0, (SP), #0, #80, SRMS_PTR 
BO AD 5003 8F BO 00017 MOVW ae oF obra PTR 
C6 AD 02 90 0001D MOVB #2, Lad 
CF AD 02 90 Boose MOVB ae Snns PI ne 
D8 AD FF50 CD 9E 00025 MOVAB NAM, SRMS_PTR+40 
dC AD 10 AC dO at MOVL RLF “BUF , shits pir + 
E4 AD 0c AC 90 00030 MOVB RLF LEN, $RMS_P R+52 
0060 =«aBF 00 6E 00 2C 00035 MOVCS ” “(SP5, #0, “9G. $RMS_PTR 
FF50 CD pogat 
FF5O CD 6002 8F B80 0003F MOVW oo4s78. SRMS PTR 
FF58 CD 08 90 00046 MOVB #8, $RMS_PTRT8 
FFSA cD 01 8E 00048 MNEGB #1, Hi PTR+10 
FFSC CD 6E 9E 00050 OVAB RBUF, SRAS_ PTR+12 
BO AD 9F 00055 PUSHAB 
68 gt FB 00058 CALLS ne SYSSPARSE 
57 0 OD 0058 MOVL RO, STA Ws 
FF5B «CD «95 0005 TSTB se RLF_NAM#11 
A le BNEQ 1 
7 OO PUSHL STAT 
00000000G 00 01 FB 00066 CALLS #1, UF assTOP 
04 +94 RET 
09 AD 02 ft 3 1$ BBC #2, RLF_NAM+54, 2$ 
FF50 §6CD F 0 PUSHAB NAM” 
CF 01 F 77 CALLS “EXCHSCMD vat FILE_FIXUP 
CD FFSB. OCD C9) Ms 2s: MOVB RLE_HAR i]. RLF Ans 
CD FF5C 68 B 8 VL ie “Name 2° RLF 
bE 00 C i MOVCS #0,7~(SP), #0, 780, SAMS. PTR 
AD 5008 F B 83 MOVW 4536 83 SRMS_PTR 
AD 20000000 8F p MOVL 6870912, SRMS_PTR+4 
AD 2 Al MOVB » SRMS_PTR+22 ~ 
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(16) 


1863 


1920 


1925 
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v04-000 exchscad related file.parse 1e-8ep-198e 95:59:01 LEXCHNG’SRESERECMD 63045 9°18) 
CF OAD 02 9 a3 MOVB #2, SRMS_PTR+31 
5h 14 ac A MOVL  =—~NAM, 
D8 AD 56 AD MOVL 6, SRMS_PTR+40 
dC AD 08 ac 2 0B1 MOVL FIL_BUF,~SRMS_PTR+44 
EO AD 0000" CF 0B6 MOVAB P.ABQ, $RMS_PTR+4 
E4 AD 06 A 3 OBC MOVB OF LEN $RMS_PTR+S2 
E5 AD 0 Oct MOVB. #2, ~$RMS_PTR+ 
0060 8F 00 6E 00 2c b00¢5 MOVCS #0. (SP)> #0, #96, (R6) 
&6 6002 Hi BO 000CD MOV 424578 (R6) 
08 Ab 08 90 000D2 MOVB #8, 8(R6) 
OA A 01 BE 9006 
oC OA 60 Ab 9E OOODA AB 
10 A6 FF50 CD 9E OOODF MOVAB RLF_NAM, 16(R6) 
BO AD 9F 000ES PUSHAB FAB 1972 
6% 01 FB 000E8 CALLS #1, SYSSPARSE 
57 50 BO OOOEB MOVL RO, STATUS 
08 Ab 95 OOOEE TSTB =: 1 (RO) 1979 
04 12 O00F1 BNEQ = 3$ 
50 57 D0 O00F3 MOVL STATUS, RO 1981 
04 000F6 RET 
50 01 DO 000F7 38: MOVL #1, RO 1985 
04 OOOFA RET 19 
; Routine Size: 251 bytes, Routine Base: EXCHSCMD_CODE + ODBD 
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Foe 000 exchscad unwin _cli_ syntax 1 =300 71382 9933004 YEXCHNG SRCTEXCCMD B32: . 3} 
; 1907 1987 1 GLOBAL ROUTINE exch$cmd_unwind_cli_syntax (sig : Sref_bblock, mech : $ref_bblock) = ZSBTTL ‘exch$cmd_unw 
; 1908 19 : BEGIN 

; 1909 19 144 

; 1910 1990 ! 

; ae 1333 FUNCTIONAL DESCRIPTION: 

$ 1318 1398 ' This routine intercepts the signal MSG$_SYNTAX. This is used by several routines to terminate 

3 ba 1338 processing when a qualifier is not defined for the particular parameter. 

; 1916 1238 ' INPUTS: 

: 1917 199 } 

$ 1318 1338 : sig = signal argument List 

3; 191 199 : mech = mechanism argument List 

: 1920 000 ! 

; 1921 001 ' IMPLICIT INPUTS: 

3; 19 ¢ O0§ ‘ 

3 19 00 ' none 

3 1388 004 ‘ 

; 1925 005 ' OUTPUTS: 

; 1966 006 : 

3 1927 007 ! none 

: 1928 008 ! 

; 94 009 ' IMPLICIT OUTPUTS: 

; 1930 010 ! 

3 1931 011 ! none 

: 1936 og ! 

3 193 01 ' ROUTINE VALUE: 

3: 1934 2014 ! Z 

3 \Oee 2016 SS$_UNWIND if signal was MSG$_SYNTAX, otherwise SS$_RESIGNAL. 

3 1937 O17 ! SIDE EFFECTS: 

: 1938 2018 § ' ; : . 

3 44 444 If we unwind, the control flow will return as if a RETURN had been made from the enabling routine 
: 1941 $053 ; $Sdbgtrc_prefix ('cmd_unwind_cli_syntax> '); 

3 Hg 8 ¢ 

3 194 § 2 LOCAL 

3 1944 024 status 

3 1945 025 : 

3 1946 059 : 

; Hb ot 4 : i : If the signal name is what we are looking for, then do a default VMS unwind 

: 1 0 cas Cchf$l_sig_name] EQL msg$_syntax ! DCL CLI error message (sinful knowlege of what DCL does!) 
3 1984 031 BEGIN 

3 1326 O36 Sdebug print lit (‘unwinding’); 

3; 195 0 mech Lchf$l_mch_savr0] = -1; ! Flag RO so that we will know msg$_syntax occurred 

> 1954 034 4 IF NOT (status = $unwind ()5 

3; 1955 035 ; THEN 

: 1228 838 Sexch_signal_stop (.status); 

3; 195 0 ND; 

3 1958 038 

3 1959 039 RETURN ss$_resignal; 

3; 1960 040 1 END; 
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v04-000 exchscad unwin _cli_ syntax 102805- 1984 13:35:03 LEXCHNG. SRC EXCCMD.B32;1 9°49) 
eEXTRN SYSSUNWIND 
0000 000 ENTRY EXCHSCMD_UNWIND_CLI_SYNTAX, Save nothing 
50 04 aC 00 0000 MOVL SIG 
000310FC BF 04 AO D1 0000 CMPL =: & (RO), #200956 
1€ is 0000 BNEQ 1 
50 08 AC 00 0001 MOVL MECH, RO 
Oc AO 01 CE 0001 MNEGL #1, 12(RO) 
7E 7C 0001 CLRQ =(SP 
000000006 00 oe 4] 309) CALLS #2, SYSSUNWIND 
OA E8 000 BLBS STATUS, 1$ 
50 DD 8 ST 
000000006 00 01 FB 38 CALLS #1, LIBSSTOP 
50 0918 8F ge OO2E 1$: MOVZWL #2328, RO 039 
04 000 RET 040 
; Routine Size: 52 bytes, Routine Base: EXCHSCMD_CODE + OE 
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exch unwind _cli_syntax Sep- EXCHNG.SRC 
196 spe) END 
; 196 042 b Eton 


-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 


EXCHSCMD_PLIT 486 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSCMD_CODE 3820 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
soucnens SYNGE socwence Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$0UA28: CSYSLIBILIB.L32;1 18619 122 0 1000 00:01.9 
~$255$DUA28: CEXCHNG. OBJJEXCLIB. L32;1 1151 129 11 79 00:01.4 
Information: 3 
Warnings: 


Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:EXCCMD/OBJ=OBJ$:EXCCMD MSRC$:EXCCMD/UPDATE=(ENHS:EXCCMD) 
+ wee? cege 486 data bytes 


Elapsed — 7: 39.7 
Lines/CPU Min: 1654 
"energy Ale gad 28533 
ponery Used: 336 pages 
Compilation Complete 
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